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teur SBM et du groupe SHARP 
CORPORATION. 
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Une nouvelle année s’annonce, et grâce 
à vous, le CLUB continue. Vous êtes 
nombreux à vous être inscrits en 
avance ou à nous avoir envoyés un 
complément d’inscription. Nous vous 
en remercions car ainsi vous continue- 
rez tous à recevoir votre revue. 

Une nouvelle année, ce sont de nou- 
veaux services, le serveur qui désor- 
mais est opérationnel. 

Une nouvelle année, ce sont des chan- 
gements : là c’est encore un secret pour 
le moment. 


Nous vous attendons nombreux le mer- 
credi au Club ; la permanence se tient 
de 14 heures à 21 heures sans interrup- 
tion. Nous espérons vous y rencontrer 
et que vous pourrez nous aider en don- 
nant un peu de votre temps. 

Toute la rédaction et le bureau vous 
souhaitent un bonne et excellente 
année 1987. 

Luc BURELLER 


OÙ EN EST 

LE SERVEUR MINITEL ? 

Nos adhérents gastronomes savent bien que les 
serveurs se font toujours attendre. Le nôtre ne fait 
pas exception : il n’a commencé son existence 
que quelques semaines auparavant, au sein d’HG, 
celui de nos confrères (et néanmoins amis) 
d’« Hebdogiciel ». 

A l’heure (*) où j’écris ces lignes, il ne figure pas 
au menu d’HG mais l’on peut déjà admirer le 
nouveau-né : il suffit de composer le 3615 (désolé 
pour la grosse erreur du dernier bulletin), de taper 
HG puis ENVOI, puis deux fois « Sharp » validés 
par ENVOI à chaque fois, même (et surtout) si cela 


n’a aucun rapport avec les options qu’affiche le 
Minitel. 

Cette procédure barbare devrait rapidement être 
remplacée pour que lorsque vous aurez reçu le 
bulletin (c’est-à-dire maintenant I), l’accès se 
fasse par HG*CS ou par une option « CLUB » figu- 
rant au menu. 

De toutes façons, vous pouvez dès à présent nous 
laisser vos critiques (constructives) dans une 
boîte aux lettres électronique, car ça c’est déjà 
au point. 

A suivre. 


Angus MONCHOIX 


(*) 23 heures 42, le 21/12/86. 
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INITIATION 
LH-5801 III 


Nous passons enfin à des applications un peu plus utiles 
que ce que l’on a fait jusqu’à présent. Et la suite... 


Vous savez certainement que l’on peut 
mettre plusieurs types d’informations 
dans la MEV du PC-1500. 

■ le mode RESERVE 

■ des programmes en LM 

■des programmes BASIC MERGES 
■des Variables dimensionnées. 

En fait chacune de ces informations se 
mettra à une place bien déterminée et 
le PC-1500 sait exactement où, grâce 
à d’autres octets de la MEV système. 

Nous avons tout au début de notre 
mémoire, donc à partir de NNOO, huit 
octets qui servent à la protection des 
modules. L’explication exacte de ces 
huit octets est donnée dans le numéro 
11, page 13. Puis il y a ce que l’on 
appelle les gabarits réserve donc ce 
qui s’affiche lorsque vous appuyez sur 
la touche RCL. Chaque gabarit utilise 
26 octets, soit 78 octets au total, plus 
les 8 du départ, soit 86 octets après le 
début de la MEV, on trouve la définition 
des touches réserve. Une partie des 
explications a déjà été donnée dans le 
numéro 10, page 23. Nous allons les 
reprendre brièvement : 


A chaque touche du mode réserve est 
associée un code : 

I III II 


! 

1 

8 

17 


2 

9 

18 

# 

3 

10 

19 

$ 

4 

11 

20 

% 

5 

12 

21 

& 

6 

13 

22 


Ce code se trouve en mémoire avant la 
définition du contenu de la touche. 

Cette définition est codée de manière 
tout à fait courante. Les caractères 
sont codés par leur code ASCII et les 
fonctions par leur code (on trouvera 
cette dernière liste en page 115 du 
TRM). Il n’y a pas de code séparateur 
spécial entre deux définitions ; si le PC 
trouve un code inférieur à &20(32), il 
sait que c’est la définition d’une autre 
touche qui commence, et s’il trouve un 
code 0, qu’il n’y a plus de définition. 

Vous trouverez dans le numéro 16, 
page 26, un programme permettant de 
lister le mode réserve, et voici un autre 
utilitaire permetttant de modifier un 


gabarit, chose impossible en temps 
normal. Le gabarit est ce qui s’affiche 
lorsqu’on appuie sur RCL. 

Voir listing 1 : Modification de Gabarits 
RUN ENTER 

v pour changer de numéro de réserve 
^ et ► pour faire bouger le curseur 
ENTER pour sortir 

une touche pour modifier le signe sous 
le curseur. 

Un dernier petit exercice pour être sûr 
de bien avoir saisi le codage du mode 
RESERVE : 

Mettre sur la touche ! en réserve I le 
caractère de pavé noir. On annulera le 
contenu des autres touches. 


A = PEEK &7863*256 - Calcul du début 
de la MEV 

A = A + 86 - Calcul du 1 er octet des 
définitions 

POKE A,1 - Code de Fl en mode I 
POKE A + 1,127 - Code du pavé noir 
POKE A + 2,0 - Fin du mot RESERVE. 

Nous allons sauter la partie correspon- 
dant au langage machine. Ce sera pour 
plus tard, nous passerons la prochaine 
fois au codage du BASIC. 

Pour compléter cet article, vous trou- 
verez la table des codes ASCII du 
PC-1500. 

Marc GIRONDOT 



0 

1 

2 

3 

4 

5 

6 

7 

8 
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A 

B 

C 

D 

E 

F 

0 

NUL 

F0 

SHIFT 

Fl 

SML 

F2 

F3 

F4 

F5 

H 

F7 


£ 

4 

t 

4 

ENTER 

CL 

DFF 

1 

F0 

Fl 

F2 

F3 

F4 

F5 

H 

F7 

CL 

RCL 

CA 

DEF 

INS 

DEL 

RSV 

MODE 

2 

SPACE 

! 

" 

> 

* 

X 

& 

= 

( 

) 

* 

+ 

’ 

- 
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P 
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y 

z 
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T 

DEF SP 

DEF A 

DEF B 

DEF C 

DEF D 

DEF E 
US ING 

DEF F 

DEF G 

DEF H 

DEF I 
CL0AD 

DEF J 

DEF K 

DEF L 

DEF H 

DEF N 

DEF D 
HERGE 

T 

DEF P 
LIST 

DEF Q 
INPUT 

DEF R 
GOTO 

DEF S 

DEF T 
GDSÜB 

DEF U 
CSAUE 

DEF V 

DEF U 
PRINT 

DEF X 

DEF Y 
RETURN 

DEF Z 

DEF SP 

DEF SP 

DEF = 

DEF SP 

DEF SP 

T 

















T 
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PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

T 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX 

PREFIX! 

PREFIX 

PREFIX 


listing î : MODIFICATION DE GABARITS 


AAAAAAAAA/VWVV^^A^^\WV^AA/\AA^AAAVVVAA^A^^^AAAAA 


10 CLEAR : DIM A$(0 )*28;REH' Initia lise A$(0) Pour contenir un go.bo.rit 
15 h=F'EEK 30266 ".REH voleur de I indicateur Positionnant le mode reserve 
20 A=2-IHT UAANB U2)/32):REN A=0->I A=1->II A=2->III 
25 A=8+PEEK £7863+A*26;REH 1er octet du gabarit 
30 H$i0:i="l ,, ïl=0 

35 IF PEEK (A+I )=GQR I=26THEN 45 
40 A$(0)=A$(Û)+CHR$ PEEK (A+I ):I=I + l:GQTD 35 
45 IF LEN ftf-f 0 Î=27THEH 55 
50 FDR I=LEN A*(0)TD 27:A$(0)=A$(0 )+” “ s HEXT I 
55 A*(0 )=A*Ï0 )+"t" 

60 1=0; C=0î HAIT Q:CLS 

65 CURS0R ; PR INT RIGHT* {A$(0),27)J 

67 A$-MIBt (A$(0), 1+2,1) 

70 C=C+ 1 : IF C=5CURSQR ÜPRINT A$S 
75 IF C=10CURSDR IsPRIHT CHRt 127?:C=0 
77 J=A8C INKEYÎ :B=0 
80 IF J=9BEEP 1 ï GOTO 100 

85 IF J=8CURSDR ÜPRINT A$î:I=I-l+26*(I=0):O9:G0TQ 6? 

90 IF J=12CURSQR isPRINT A*î s I=I+l-26*< 1=25 ÎsC=9ïGDT0 67-B 

91 IF J=13G0SÜB 120: ENB 

92 IF J>31LET Ai(0:i=LEFTÎ (A$(0 ), 1+1 )+CHR* J+RIGHT* (A*(0),28-I-2):J=12:B=2':GDTQ 90 
95 GOTO 70 

100 G0SUB 12û:A=iPEEK 30286AHD 1121/2 

105 IF (AANB 8 )=8LET h=64 

110 POKE 30286, (PEEK 30286AHB 143 ÎBR A: GOTO 15 

120 FOR K=0TD 25:PQKE A+K,ASC HIB$ {At(0),K+2, 1 ):NEXT K: RETURN 


vVWVVvVvVv\AMAM/WV^A/VVWVV\V^AVvAAAAA\^AAAA/VVV 


AJUSTEMENT DE COURBE 


Ce programme permet de déterminer la courbe qui passe 
le plus près d’une série de points donnés. 


Pour vérifier que vous n’avez pas fait 
d’erreur en tapant ces lignes de DATA, 
vous pouvez entrer ces 3 lignes que 
vous effacerez ensuite : 

2000:X = 0.5, Y = 1,A = 1,B = 1,C = 1, 
D = 1,E = 1,F = 1,Z = 1,S = 0:ON ERROR 
GOTO 2002 

2001:READ l:S = S + l:GOTO 2001 
2002:PRINT S:END 

Si le résultat affiché est différent de 
3907.05..., c’est que vous avez fait une 
erreur de frappe. 


FONCTIONNEMENT DU PRO- 
GRAMME 

Après avoir fait RUN; entrez les coor- 
données des différents points. Pour 
retirer des points, faites DEF S et don- 
nez les coordonnées des points à reti- 
rer, puis faites DEF A pour recommen- 
cer à rentrer des points. 

Lorsque vous aurez entré tous les 
points, tapez simplement ENTER à la 
question «X = ». 





Vous avez alors deux possibilités pour 
effectuer l’ajustement de la courbe : 

■ pour obtenir une courbe particulière, 
tapez son numéro et ENTER (1 à 25) 

- pour obtenir la meilleure courbe, 
tapez simplement ENTER (attention, 
les courbes 24 et 25 ne sont pas prises 
en compte). Le numéro de la courbe 
choisie s’affiche alors, après 10 à 20 
secondes de calcul. 

Le programme commence par donner 
les coefficients a, b et c de l’équation 
de la courbe, puis le coefficient de cor- 
rélation noté r compris entre 0 et 1 et 
qui détermine la justesse de l’ajuste- 
ment (r = 1 si la courbe passe très près 
de tous les points). 

Vous pouvez ensuite tester la courbe 
ajustée en donnant une valeur de X et 
le programme calcule Y(X). 

ATTENTION : si tous les points que 
vous avez rentrés sont très éloignés de 


toutes les courbes, il peut arriver que 
le programme donne de mauvaises 
valeurs et un coefficient de corrélation 
égal à 1. Pour se rendre compte de ces 
erreurs, il suffit de calculer Y(X) pour 
certaines valeurs de X connues. 

Le programme ne peut ajuster une 
courbe que si toutes les valeurs de X 
et Y entrées vérifient les conditions ins- 
crites à côté des courbes. Il est donc 
préférable de ne pas entrer le point 
(0,0), même si la courbe doit y passer 
(seules la droite et la parabole accep- 
tent ce point). 

Ce programme a été mis au point avec 
les formules parues dans « Curve fit- 
ting for programmable calculators » de 
William M. Kolb. 

Martin RAYROLE 


AAA/VNA/VVNAA/vVvNAAA^A^NAAVVVV 


IOîDIM R(46),T(6:i:FOR I=OTO 6 - : T ( I )=1 : NEXT I 

12: " A"K=1 : HAIT O : GOTO 20 

16: " S"K = - 1 : HAIT O 

2 O : C L S : BEER 1 , 80, 30: A$=' , Poi,nt"+STR$ < R ( 5 >+ 1 1 : PR I HT At;: 

I NF'UT " X= " ; X : CLS : PR I HT At; : I HPUT " Y= " ; Y : GOTO 40 

30: GOTO 200 

40 : T ( 1 ) = T ( 1 ) A H D X< >0 , T ( 2 ) = T < 2 ) A H B X >0,T(3 ) = T C 3 ) AND Y< >0 , T 
(4 ) = T(4 )AND Y > O 

50 : T ( 5 ) = T ( 5 j AND X > O A N B X< 1 , T ( 6 ) = T « 6 ) A N B X > Q A H B ( X- I HT X = 0 
) A H B X<30 

55 : A=X*X , B = Y* Y: RESTORE : GOSUB 800 

60: IF T! 1 JGOSUB 800 

70: IF T( 3 > RESTORE 902: GOSUB 800: IF T( 1 )LET R( 10 ) = R( ÎO )+K/ 
X - Y 

80: IF T( 2 ) RESTORE 903:C = LH X , E = C*C : GOSUB 800: IF T ( 3 )LET R 
i. 3 6 j = R ( 36 ) + K*Cs Y 

90: IF T( 4 1RES TORE 904:B = LH Y, F = B^B: GOSUB 800: IF TlliLET R 
( 3 1 ) = R ( 31 j + K + Bx- X 
ÎOO: IF T ( 2 ) A H B T( 4 JGOSUB 800 

110: IF T ( 5 )AHB TC4:iLET 2 = LH < 1 -X ï : GOSUB 800 

120: IF T f 6 ÎAHB T(4 JGOSUB 700:F = LH F : RESTORE 907:GDSIJB 800 
130: GOTO 20 

200: CLS : WhIT si HPUT " Humer o de I o. courbe " ; J: GOTO 300 
2 1 O : 2 M = O : F OR J=1TD 23:G0SUB 810: IF Z > Z M L E T ZM=Z,HM = J 
220 : H E X T J : J = H M : BEEP 1 : PR I HT US I HG : " Courbe numéro ” ; J 
300: GOSUB 810: IF Z = OPRIHT "Points hors du do ma l ne " : GOTO 20 


: BAT A 0,0, 
: BAT A 0,3, 
: BAT A 1,0, 
: B AT A 1,3, 
: BATA 1,0, 
: BATA 1,0, 
: BATA 0,0, 
: BATA 2,4, 
: B AT A 0,4, 
: BAT A 1,4, 
: B AT A 2,4, 
: DATA 2,4, 
: BATA 0,4, 
: DATA 1,4, 
: DATA 2,0, 
: DATA 2,3, 
: BAT A 2,4, 
: D AT A 2,4, 


de 2 e ordre 


m 



11 

y = a.x bx 
x et y > o 





17 

y = a.b x .x c 
x et y > o 

fonction 

d’Hoerl 





12 

b/y 

y = a.x x 
x et y > o 


15 

y = a + b.lnx 
x > o 

logarithme 

18 

y = a.b 1 /x .x c 
x et y> o 
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ARRÊTER EN MARCHE 

Voici un petit truc simple que j’ai 
découvert sur mon PC-1500. Depuis 
pas mal de temps, je dispose en per- 
manence d’un petit DRIVER CLAVIER 
qui, en particulier, remplace avanta- 
geusement la touche OFF par un SJP 
E33F (« Sharpentier » n° 11, page 21). 

Cependant, avec cette méthode, la 
fonction ARUN n’est plus disponible 
car elle ne se déclenche qu’au retour 
d’un vrai OFF. Mais il y a beaucoup 
mieux ! 

Essayez donc ceci : 

Placez un DRIVER du type : 

SJP &E24A 


CPI A,OF 
BZR +03 
JMP E33F 
RTN 

et lancez-le en mettant dans 785B-C 
l’adresse et dans 79D4 la valeur &55. 

Maintenant rentrez le programme 
BASIC suivant : 

10;CALL &E24A:GOTO 20 
Lancez-le par RUN 10. 

Le programme reboucle à chaque 
appui sur une touche autre que 
BREAK. Mais si on exécute la 
séquence SHIFT OFF, ô miracle ! le PC 
s’éteint et mieux encore, si on rallume 
la machine le programme tourne 
toujours. 

Cela fonctionne sur n’importe quel pro- 
gramme sous DRIVER. 


Si on place une routine E24A sous 
BASIC et l’on répond à cette routine 
par SHIFT OFF, au lieu de continuer le 
programme, la machine s’éteint. Puis 
quand on rallume, le PC attend tou- 
jours une réponse au CALL &E24A. 

Avec cette méthode, voilà une façon 
simple de placer des mots de passe à 
l’allumage et d’autres astuces de ce 
genre. On peut aussi faire démarrer 
automatiquement le PC sur n’importe 
quel programme mis en mémoire (il 
suffit de placer le CALL &E24A au bon 
endroit). 

La seule contrainte par rapport à un 
ARUN moins puissant est de devoir 
appuyer sur une autre touche après le 
ON, mais cela tout le monde le fait en 
allumant sa machine... 

Christophe NICOLAS 


a 


D’OÙ VIENT-IL ? 

Outre les 4 types de ROM, il y a deux 
sortes de PC-1500. Ceux provenant du 
Japon et ceux destinés à l’exportation. 

L’ordinateur se sert de cette indication 
pour savoir s’il faut qu’il affiche le 
signe KATAKANA ou le mot SMALL. 

Si le bit 3 de #&F00F est à 0, la 
machine provient du marché Japonais, 
et s’il est à 1, elle est destinée à 
l’exportation. 



COMPTE BANCAIRE 


Ce programme est une petite aide pour gérer son compte 
bancaire. Il permet 16 retraits et 16 entrées, avec bien 
entendu une sauvegarde sur K7 et une sortie sur impri- 
mante. Comme le logiciel comporte 1 3 fonctions différen- 
tes appelées toutes par DEF, il est préférable d’utiliser 
un normographe fourni avec le PC. 


Une fois le programme chargé, il faut 
effectuer un RUN et entrer la date. Le 
curseur revient et vous pouvez choisir 
la commande voulue. 

DEF A: création d’entrées 
DEF Z : lecture des entrées 
DEF S : annulation d’une entrée 
DEF X: annulation de toutes les 
entrées 

DEF D : annulation d’un retrait 
DEF C : annulation de tous les retraits 
DEF F : création des retraits 
DEF V : lecture des retraits 
DEF N : imprime la date 
DEF M : modification de la date 
DEF SPC : sauvegarde des informa- 
tions 

DEF L : affiche le total des retraits, des 
entrées et le solde 
DEF = : rappel d’anciennes données 
sur K7 

A : créations d’entrées 

Lorsque l’écran affiche «CODE 24 
CART. » (ne pas faire ENTER), entrez 
directement ce à quoi correspond la 
somme en entrée. Le libellé doit com- 
porter 24 caractères au plus. Ensuite, 
la machine affiche « SOMME: » et on 
entre la somme. Alors le PC affiche le 
nombre d’entrées restant. A la ques- 
tion « JE POURSUIS (O/N ) », répondre 
O pour continuer la saisie des entrées. 

La réponse N fait apparaître «CHOIX?», 
puis le curseur, et on peut choisir une 
autre option. 

Z : permet la sortie sur imprimante du 
détail des entrées ou alors la lecture 
sur l’écran de toutes les entrées. 

X : efface le contenu des mémoires cor- 
respondantes aux entrées. 

S : lorsque l’on presse DEF S on voit 
apparaître sur l’écran « CLEF 7 CRTS 
MAX». A ce moment, on entre un 
ensemble de 7 caractères correspon- 
dant à au moins une partie du code, ou 
des codes d’une ou plusieurs sommes 
classées dans la catégorie des 
entrées. Alors la machine recherche 
tous les codes identiques à cette clef, 
puis les affiche et demande une con- 
firmation d’annulation. Les codes 
apparaissent tour à tour avec confir- 


mation à chaque fois. Si la réponse est 
non, il continue ses recherches, et si 
l’ordinateur ne trouve rien il affichera 
« CLEF NON TROUVEE ». 

Les commandes D, C, F et V correspon- 
dent pour les retraits respectivement 
aux commandes S, X, A et Z. 

N : imprime la date enregistrée 

M : permet de changer la date, mais 
comme la fonction AREAD est utilisée, 
il faut taper la date sous la forme JJ- 
MM-AA avant de faire DEF M. 

SPC : enregistre toutes les données de 
la machine sous le nom correspondant 
à la date. 

L : permet le rappel des données sau- 
vegardées sur K7. Pour ce faire, posi- 
tionner la bande de la cassette et taper 
la date correspondante à la question 
« CODE ». 

= : cette option sort sur imprimante ou 
sur l’écran, le retrait total, l’apport total 
et la somme restante. 

Terminons en signalant que le pro- 
gramme occupe 1664 octets à vide et 
3412 une fois les variables dimension- 
nées. J’espère qu’il vous aidera à tenir 
vos comptes à jour. 

Frédéric GENAUDET. 



188; INPUT '-'CODE 24 CttK 
? E$0<> ? "SOMME : v 5! 




TOVJtE 

pOHDM*CE 

tfCU» 







WVWSA\VWWWA^\VWW 


EDIT LM 


Beaucoup de nos lecteurs 
regrettent de ne pas avoir 
d’outil rapide et efficace 
pour entrer les program- 
mes en langage Machine. 
Cet utilitaire écrit pour un 
PC 1 350 est relogeable et 
facilite l’introduction des 
Dumps que nous publions 
régulièrement. Et ceci, 
avec un contrôle perma- 
nent du Checksum, un affi- 
chage sur 4 lignes et un 
système d’édition avec cur- 
seur et touches redéfinies. 

Entrez le programme Basic fourni, et 
vérifiez-le attentivement ; une petite 
erreur et c’est le plantage assuré. 
Tapez RUN, puis une fois revenu sous 
Basic sauvegardez le LM sur K7 par : 
CSAVE M «EDITLM»;&6A00,&6BC9 
ENTER. 

Vous pourrez le recharger par la suite 
en mémoire où vous voudrez. Par 
exemple en &3000 par : CLOAD M 
«EDITLM»;&3000. Soit pour une 
adresse de type &XXYY par CLOAD M 
&XXYY. L’adresse d’exécution (pour 
l’instant &6A00) deviendra XXYY. Le 
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programme est dit relogeable, donc 
indépendant d’une quelconque 
adresse. Il est écrit en &6A00, mais 
fonctionne n’importe où en RAM. Cela 
est pratique pour le cas où nous 
aurions à entrer en mémoire un pro- 
gramme qui irait « écraser » EDITLM en 
écrivant entre &6A00 et &6BC9: adres- 
ses de début et de fin de cet utilitaire. 

Au fait, le Basic n’est plus nécessaire 
une fois le RUN effectué. Vous pouvez 
faire NEW, le LM ne sera pas effacé. 

L’utilisation est simple. Pour écrire en 
mémoire à partir d’une adresse 
&NNMM, il suffit de taper (en Mode 
RUN, PRO ou RSV) CALL &XXYY, 
&NNMM (ici XXYY = 6A00). Surtout res- 
pectez bien cette syntaxe. L’adresse 
d’exécution doit être exprimée en Hexa 
(&XXYY). Par exemple : CALL &6A00, 
&6800. L’écran affichera un Dump sur 
4 lignes, présenté sous forme d’une 
adresse (4 car), un espace, 8 octets 
accolés (8x2 car.), deux points et le 
checksum (2 car.). Un pavé clignotant 
est placé sur la deuxième ligne, c’est 
le curseur d’édition que l’on peut dépla- 
cer uniquement sur cette ligne : le 
Scrolling est automatique. L’adresse à 
gauche du curseur est l’adresse cou- 
rante, soit NNMM:&6800 pour l’exem- 
ple du départ. 

Les touches flèches Haut, Bas, Droite, 
Gauche de déplacement du curseur 
sont opérationnelles. Comme le Dump 
est en Hexadécimal, seules les tou- 
ches 0 à 9 et A à F ont un effet. 

Tapez sur ces touches, et si vous êtes 
en RAM, vous verrez immédiatement la 
modification en mémoire et l’influence 
sur le Checksum. Notons Pautorépéti- 
tion des touches. Hormis cela, pour 
faciliter la frappe, les touches 
(/ * - + . sont redéfinies comme 
étant aussi A B C D E F. 

Alors que BRK permet de sortir de l’édi- 
teur. Vous pouvez donc «dumper» la 
mémoire aussi bien RAM que ROM. 
Vous constaterez que pour la ROM 
aucune modification n’est possible. 

De plus, on peut sortir sur l’imprimante 
CE-126P avec la syntaxe suivante : 
CALL &XXYY, &N N M M , &TTZZ. Où 
&XXYY est l’adresse d’exécution de 
EDITLM, &NNMM l’adresse de début 
du Dump et &TTZZ l’adresse de fin de 
ce même Dump. Pour faire un Dump 
mémoire du programme EDITLM, faire : 
CALL &6A00,&6A00,&6BC9. On peut 
donc obtenir sur l’imprimante un Dump 
de l’adresse &NNMM jusqu’à &TTZZ. 

Bon LM, et n’écrivez pas n’importe où 
au hasard, surtout pas sur le pro- 
gramme EDITLM, où gare au BUSY. 

Jean-François VIGNAUD 
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\OUS 


ON 


Après avoir vu les caractéristiques générales du trai- 
tement alphanumérique, nous verrons cette fois les 
traitements spécifiques à ce type de variable. 


LEN 


Nous allons tout d’abord étudier un 
cas simple, LEN, qui signifie longueur. 
Vous remarquerez qu’il n’y a pas le 
signe $ après les lettres, la réponse 
n’est donc pas une chaîne de caractè- 
res mais le nombre de signes dans 
EX$, avec une syntaxe de ce type : 


VAR = LEN EX$ 

Où EX$ est une expression qui donnera 
pour résultat une chaîne de caractères. 
Cela peut être le résultat d’un calcul. 


VAR est une variable numérique. 

On remarquera qu’il n’est pas obliga- 
toire de mettre des parenthèses entre 
le nom de EX$ sauf si cela peut prêter 
à confusion, par exemple : 

A = LEN A$ + B$ 


Ce cas donne une erreur 17 (PC-1500) 
car l’évaluateur travaille ainsi : 

A$-> LEN^ nombre + B$ 


fonctions permettent d’extraire une 
chaîne alphanumérique d’une autre 
chaîne. 


RIGHT$ (EX$,n) donne pour résultat les 
n caractères les plus à droite de l’ex- 
pression EX$. 


LEFT$ (EX$,n) donne les n caractères 
les plus à gauche. 


D’où erreur car on ne peut additionner 
un nombre avec une variable ALPHA. 
On fera dans ce cas : 

A = LEN (A$ + B$) 

L’évaluateur travaillera ainsi : 

A$ + B$-+ LEN-> nombre -> stockage 
dans A 

Voyons un exemple concret : 

A$ = «CLUB» LEN A$ = 4 

B$ = «pocket» LEN B$ = 6 

LEN (A$ + «— » + B$) = 4 + 1 + 6 = 11 


On remarque que n peut prendre les 
valeurs de 0 à 80 inclus, quelque soit 
la longueur de EX$. Ainsi, si n vaut 0, 
le résultat est toujours une chaîne vide 
donc de longueur nulle : 

LEN RIGHT$ (EX$,0) = 0 


MIDS 


Nous allons voir en bloc trois fonctions 
qui travaillent de manière très proche : 
RIGHT$ (EX$,n) 

LEFT$ (EX$,n) 

MIDS (EX$,n,m) 

où n et m sont des nombres dont nous 
allons voir les domaines de validité. 


RIGHTS ■ LEFT$ 

Dans tous les cas la réponse est une 
chaîne alphanumérique. Ces deux 
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valeurs de 1 à 80 inclus et m les valeurs 
de 0 à 80 quelque soit la longueur de 
EX$. Si on demande plus de caractères 
que ce qu’EXS n’en contient à partir de 
sa position n, la chaîne extraite n’aura 
que ce que EX$ peut effectivement 
fournir : 

EX$ = «ESSAI» 

MIDS (EX$,4,10) 

Soit prendre 10 caractères à partir du 
A, ne répondra que Al, soit deux 
caractères. 


Nous allons voir quelques applications 
pratiques : 


De même, si n est plus grand ou égal 
que la longueur de EX$, la réponse sera 
EX$ : 

RIGHTS (EX$,80) = EX$ 


ALIGNER LES CARACTÈRES 


La fonction MIDS est plus compliquée 
mais aussi plus puissante. Elle permet 
de définir à la fois la longueur, mais 
aussi le point de départ de la chaîne à 
extraire. Remarquez que l’on ne définit 
pas son sens qui est toujours de la 
gauche vers la droite. La syntaxe est 
la suivante : 

AS = MIDS (EX$,n,m) 


C’est souvent nécessaire pour le travail 
sur imprimante. Il faut en effet jouer 
sur l’esthétisme et faire des colonnes 
régulières. Les variables doivent avoir 
toutes la même longueur, quelque soit 
leur contenu, quitte à rajouter des 
espaces à la fin. 


Soit une variable A$ ayant LEN A$ 
caractères. On veut qu’elle en ait 10. il 
faudra donc compléter par des espa- 
ces à la droite des caractères 
existants. 


Et dans A$, il y aura les m caractères 
de EX$ à partir de la position n. On 
remarque que n peut prendre les 


Il faudra vérifier que A$ n’ait pas plus 
de 10 caractères sinon on aboutit à une 


erreur : 

A$ = A$ + LEFT$ 
10-LEN A$) 





Étudions un peu cette dernière ligne : 
10-LEN A$ donne pour réponse le nom- 
bre de caractères manquant à A$ pour 
avoir 10 caractères. 

C’est à cause de cette formule qu’il ne 
faut pas que A$ ait plus de 10 caractè- 
res, par exemple 12, car 10-12= -2 
et un LEFT$ (EX$, — 2) provoque une 
erreur 19 (PC-1500). On prendra donc de 


la chaîne comportant 10 espaces, 
autant d’espaces que 10-LEN A$. Nous 
verrons une prochaine fois que l’on 
pourrait faire plus simple avec les ins- 
tructions STRINGS et SPACE$. 

REMPLACER UN CARACTÈRE 

Soit une chaîne EX$, si Ion veut rem- 
placer le caractère n par un autre 


caractère, par exemple «A», on fera 
ainsi : on prend tous les caractères 
avant le n, on ajoute «A» et on rajoute 
tous ceux situés après le n. Cela don- 
nera : 

LEFT$ (EX$,n - 1) + «A» + RIGHT$ (EX$, 
LEN EX$-n) 

et tout marche parfaitement même 
pour les caractères situés aux extrémi- 


tés car un LEFT$ (EX$,0) donne une 
chaîne vide. 

La prochaine fois, nous traiterons de 
STR$, VAL et nous reviendrons sur 
STRINGS et SPACES. 

A bientôt ! 

Le Club 




GRAPHE LIGNE 


Pour continuer la série entamée dans le numéro 20, voici 
un logiciel capable de tracer simultanément plusieurs 
courbes. Cela permet, par exemple, d’apprécier la crois- 
sance des chiffres de vente de différents produits. Ils sont 
matérialisés par des lignes de couleurs et pointillés 
différents. 


Toujours extrait du même livre japo- 
nais, ce programme est compatible 
avec les PC 1350/60, 1450/60 et 2500 
munis d’une carte 8 ko au moins, et 
d’une table traçante CE-516P ou 
CE-140P. Pour les PC 2500, l’impri- 
mante intégrée fonctionne en suppri- 
mant la ligne 750. L’exemple de tracé 
fourni avec son tableau des valeurs 
vous donne un aperçu du résultat 
obtenu. Regardons pas à pas chacune 
des quatre parties composant le 
programme. 

LA SAISIE 

Elle est obligatoire pour une première 
introduction de valeurs. Par la suite, si 
des données sont en mémoire, on peut 
corriger, refaire un graphique ou sau- 
vegarder ces données. Ou encore char- 
ger des valeurs préalablement mises 
sur cassette. Ce module démarre par 
RUN ou DEF A. A la question «Colon- 
ne = », indiquer le nombre de colonnes, 
(1 à 8), par exemple 6. Puis on entre le 
nom de chacune des colonnes (Nom X 
col(1) Janvier, Février, etc., jusqu’à 
Juin). La question «Ligne = » demande 
donc le nombre de lignes (2 à 10) : 5 sur 
l’exemple. Comme pour les colonnes, 
donner le nom pour chaque ligne 
(1980...1984). Ensuite la saisie des 
valeurs commence. On entre cette 
valeur après l’affichage du nom de la 
colonne, suivi de deux points et du 
nom de la ligne. Un ? signale cette 
demande, et la saisie s’effectue ligne 
par ligne (270, 300, etc. 156). A la fin de 


LA GESTION K7 

DEF F affiche la question «Gestion 
K7(E/S)». On répond E (ou e) comme 
Entrée pour charger en mémoire des 
valeurs, ou S (ou s) comme Sortie pour 
sauvegarder un tableau sur cassette. 


Le nom du fichier est : SENDATA. Posi- 
tionnez votre K7 et magnétophone en 
fonction de l’option choisie, puis 
appuyez sur la touche ENTER pour 
démarrer au message «K7 OK, PRESS 
ENT». 


cette saisie, la machine demande si on 
veut le tableau des valeurs entrées sur 
papier («Tableau (O/N)»). Si oui, répon- 
dre O ou o, autrement N ou n. Dans le 
cas où une erreur de frappe est déce- 
lée nous pouvons corriger grâce au 
module suivant. 

LA CORRECTION 

Elle est permise afin de modifier un 
nom de colonne ou de ligne, ou une 
valeur numérique erronée. Attention : 
chaque nombre est limité à 8 caractè- 
res signe (-) compris, et seule la par- 
tie entière est conservée. Pour les 
noms de colonne ou ligne, un maxi- 
mum de 7 caractères est pris en 
compte. On change le nom de la 
colonne 3 en entrant à la question 
«Variables = » C(3). Soit pour le nom 
d’une colonne i : C(i). De même pour le 
nom d’une ligne j : L(j). On modifie une 
valeur numérique en précisant le 
numéro de colonne et de ligne. Exem- 
ple : V(2,1) indique la colonne 2 et la 
ligne 1, soit dans l’exemple donné la 
valeur 300. Donc V(i,j) dans un cas 
général. On sort de cette partie par 
BRK ou DEF. 


ACHATS 



U i andes 


J anv ! g > 

Mars 

Ma ; 


Feur ! e r 

Aur î I 

Juin 



Janv i en 

Février 

Mar'S 

Aur i 1 

Mai 

Juin 

1980 

270 

300 

270 

213 

241 

90 

1981 

284 

371 

292 

243 

285 

113 

1982 

320 

385 

320 

248 

283 

109 

1983 

365 

388 

337 

269 

291 

131 

1984 

410 

394 

339 

265 

305 

156 



LE TRACÉ 

Nous avons deux points d’entrée dans 
ce module : DEF C permettant d’entrer 
les titres, et DEF D de refaire un tracé 
en conservant les titres déjà saisis. 
«Titre = » demande le titre général du 
graphique, ici «ACHATS», «Titre(1) = » 
correspond à l’inscription au bas du 
tracé, relative aux lignes, soit «Vian- 
des» dans l’exemple. Alors que 
«Titre(2) = » demande une information 
sur les colonnes, c’est-à-dire l’unité uti- 
lisée ou la monnaie, etc... Ici «Frs». 
Mais vous êtes libres de choisir comme 
il vous plaira. Le tracé débute après la 
saisie de ces dernières précisions. A ce 
stade, on est au niveau de l’entrée par 
DEF D. On supprime l’instruction 
OPEN pour le PC-2500 avec son impri- 
mante, et on détermine le OPEN requis 
en manuel avant de faire DEF C ou D. 

Pour la CE-140P, on garde les valeurs 
d’origine, et pour la CE-516P on peut 
prendre OPEN «1200, N, 8,1, A, L». Une 
fois le graphique achevé, l’ordinateur 
rend la main. 

La prochaine fois, nous verrons un 
autre type de graphique, mais en atten- 
dant faites-nous part de vos souhaits, 
et n’hésitez pas à nous envoyer vos 
réalisations. 

Jean-François VIGNAUD 


10. "A" NAIT 64. CLEAR - CONSOLE 39 
20. SP$-" ' L*'~ CHR$ 27 

30; ! NPUT " Co ! onne - ". Xk 
4 0 - T r XkCl OR Xk>8 BEEP 2- GOTO 30 
50 - DIM X$CXK> ’ T $ ( 3) *22.' HA (XK) 

60 - r OR I--1 TO XK 

70- PAUSE '■ Nom Xco ' ( " • STR$ I • " >" 

80- ! NPUT X$(n 

90- I T" L EN X$CI>>7 BEEP 2: GOTO 80 
100.NEXT I 

110- T NPUT L u7ne-- : -' r'K 

120- ir XK< 2 OR YK >10 BEEP 2- GOTO 110 

130- DiM Y$( YK'> > DDCXKj r'K) 

140- COR 1-1 TO YK 

150- p AUSE "Nom YMqnC"- STR$ !•">" 
160- 1 NPUT Ÿ$fl > 

170. ’.c lEN Y$n>>7 BEEP 2- C0 T O 160 
180.NEXT l 

190. COR Y- 1 to YK. r 0 R X-l TO XK 
200 ■ P AUSE lEFt$ (’X^i'X) hSP$-7)> '■ "■ 
lECT$ C y$ ( y ) hSP$ ■ t>) 

210- D ■- 0 . T NPUT D 

220. D-- INT D. \ c lEN STR$ D>8 BEEP 2. 

GOTO 210 
230. DD CX - Y)--D 



260 ■■ GOSUB -' 20 . T .c K<0 THEN 250 


270. 'T K END 

280-COSUB T50 

290 . SI- 1 NT rXK.^4) ni. X--0 

300- COR 0--1-T0 Si 

310 ; S2 r -3 ; ,r Q--S1 lE t S2=- Xk-4*0 + 4 

320- lPRINT "M0, -20" 

330-lPRINT "'" 

340. 22— 1081(32+1) * lPRINT "D'-X2.".0" 
350- CQR I--0 to S2 + 1- lPRINT "<ï'- . X2~!*10 
8 . " • 0 " 

360- lPRINT "D" • X2-H108. " • -20" NEX T I 
370- r OR 1-0 TO S2- lPRINT "m ■ 12 + 108* I • 


20" 

• 0" 

• X2-I*10 
NEXT I 





KAWANA 86 


Pour la seconde année con- 
sécutive des ordinateurs de 
poche ont travaillé pendant 
trois mois en Guyane fran- 
çaise à la protection des 
tortues marines. 

Nous vous avons déjà fait un compte 
rendu de la mission 85 qui avait permis 
de tester un PC-1350 pour gérer l’éclo- 
serie d’œufs de tortues marines. 

Le travail sur le terrain a commencé il 
y a une quinzaine d’année par quelques 
passionnés du Muséum d’Histoire 
Naturelle de Paris, de Greenpeace ou 
d’autres associations. 

Pour tenter de sauver la population res- 
tante de tortues luths ( Dermochelvs 
Coriacea) et de reconstituer le cheptel 
de l’Atlantique, il est important de con- 
naître très précisément la biologie de 
ces animaux spectaculaires. Cette 
étude est menée sur plusieurs 
domaines : 

Écologie, 

Éthologie, 

Embryologie entre autre. 

C’est pourquoi depuis 15 ans et princi- 
palement depuis 1978 il est effectué un 
comptage systématique des femelles 
venant pondre sur les plages guyanai- 


ses ainsi qu’un marquage grâce à des 
bagues de titanium qui ne subissent 
pas la corrosion par l’eau de mer. Les 
premières marques de cette sorte ont 
été posées en 85, il faudra donc atten- 
dre 88 pour les revoir, car d’après les 
connaissances acquises dans les mis- 
sions précédentes, les luths reviennent 
pondre tous les trois ans. 

Pour effectuer ces actions, une tren- 
taine de bénévoles se relaient de mai 
à septembre pour effectuer les 
patrouilles sur les plages. Ces patrouil- 
les permettent en outre d’éviter au 
maximum le braconnage. Durant la sai- 
son 86 deux tortues ont été tuées sur 
la plage d’Awara ; c’est encore trop, 
mais peu par rapport à ce qui se pas- 
sait avant les patrouilles systéma- 
tiques. 

UNE ÉCLOSERIE SUR LE TERRAIN 

Il a été de plus constitué une éclose- 
rie d’œufs de tortues pour tenter de 
contrer la perte naturelle due à l’éro- 
sion des plages. Cette écloserie pos- 
sède environ 100 boîtes en polystyrène 
contenant chacune environ 80 œufs. 

L’incubation dure environ 70 jours sauf 
pour les couveuses chauffées grâce à 
des résistances alimentées par des 
panneaux solaires, le temps d’incuba- 
tion étant alors de l’ordre de 60 jours. 
Il est très important d’avoir des couveu- 
ses chauffées car le sexe des petites 
tortues dépend de la température en 
cours d’incubation. 

Mais tout ceci ne facilite pas la gestion 
de Pécloserie et c’est pour cette raison 
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qu’un PC-1500 avait été programmé 
spécialement pour nous dire tous les 
jours quelles allaient être les boîtes à 
surveiller car allant éclore. 

De plus, une fois éclose, on donnait au 
PC-1500 ce qu’il était advenu des œufs 
de chaque boîte, on sortait alors un 
graphique avec le pourcentage de réus- 
site de cette boîte. 

Tous les graphiques ainsi obtenus 
étaient conservés sur un cahier pour 
Chantal, une jeune fille du village qui 
s’est occupée entre autre de la gestion 
informatique de l’écloserie. 

LE RÔLE DES PC SUR PLACE 

Les dernières boîtes ont été entrées en 
mémoire en décembre et nous avons 
pu sortir des statistiques de réussite 
suivant le mois de ponte ou le type de 
couveuse. 

Il avait été prévu de contrôler la tem- 
pérature grâce à une interface analo- 
gique et de sondes QCN branchées sur 
la prise EAR d’un PC-2500. L’interface 
a été réalisée par Christophe POULIN, 
mais je n’ai jamais réussi à faire lire 
une température au PC-2500. Ce der- 
nier s’est toujours montré réticent à 
faire ce que je désirai de lui en langage 
machine et finalement nous avons dû 
abandonner cette idée pour retenter en 
87. Il nous restait donc un PC-2500 qui 
ne servait pas et il a été reconvertit à 
une étude de comportement. 

Nous avons voulu déterminer les cau- 
ses qui faisaient qu’une tortue s’arrête 
de creuser. Dans un premier temps il 
a fallu déterminer le comportement 
exact d’une tortue « normale » en train 
de creuser. Il faut savoir qu’une tortue 
creuse alternativement avec la patte 
arrière droite et gauche. Et à chaque 
fois qu’elle descend sa patte dans le 
trou en formation, elle racle le sable 
entre 1 et 9 fois pour le décrocher. Elle 
le remonte ensuite et l’évacue par un 
coup de pied en descendant l’autre 
patte. 

Grâce à un programme adapté au 
PC-2500 nous avons déterminé pour les 
tortues étudiées les paramètres 
suivants : 

Fréquence de raclages des pattes droi- 
tes et gauches en fonction du temps, 
Évolution du nombre de raclages de 
patte au fond du trou en fonction du 
temps, 

Intervalle de temps entre deux raclages 
de patte au fur et à mesure du 
creusement. 

Malheureusement nous n’avons pas eu 
le temps de faire assez d’expériences 
pour en tirer des conclusions, mais 
nous commençons à mieux cerner le 
problème. 


PRÉPARATION DE KAWANA 87 

L’année prochaine marquera encore 
une nouvelle étape dans l’informatisa- 
tion de cette mission puisque l’on 
devrait arriver en 87 avec 6 PC. 
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Devenir des œufs de tortues luths en couveu- 
ses non thermorégulées - 1986. 


A. G. E. O.T. M. G. 



Logo et sigle de l’Association pour la gestion 
des écloseries d’œufs de tortues marines de 
Guyane - Campagne 1987. 


Un PC-1500 continuera à gérer l’éclo- 
serie avec une petite innovation, nous 
envisageons un tableau de LED et 
quand une boîte devra être surveillée, 
la LED correspondante s’allumera. 

La plus grosse innovation proviendra 
d’un PC-1600 qui captera sans arrêt 
pendant six mois la température d’une 
pièce entièrement thermorégulée. 


ment de creusement des tortues. Si 
nous en avons les moyens un PC-1600 
serait l’idéal... 

Trois PC-1500 serviront à noter les tor- 
tues rencontrées sur la plage. Pour 
chaque tortue les paramètres suivants 
seront pris : 

Date et heure grâce à TIME, 

Numéro de la tortue s’il y a lieu, 

Ce qu’elle est en train de faire pour 
retrouver par extrapolation son heure 
d’arrivée. 

Pour l’instant tout était noté sur des 
feuilles d’où beaucoup de manipula- 
tions pour en tirer des résultats 
corrects. 

Avec cette méthode, au retour des 
patrouilles nous brancherons les 


PC-1500 sur une EPF-1500-16 et les 
données seront sauvées sur EPROM 
qui seront reprises à Paris sur un IBM 
PC. En effet le climat nous oblige à 
prendre quelques précautions puisque 
l’humidité et la chaleur rend les casset- 
tes pratiquement inutilisables. Nous 
ne savons pas ce qu’il en est des dis- 
quettes. De plus la CE-150 est tombée 
en panne vers la fin du séjour, la carte 
intérieure était couverte de moisissu- 
res ! Mis à part ceci le matériel a bien 
tenu ce qui est déjà en soit une bonne 
performance. 

Jacques FRETEY 

Marc GIRONDOT 


NOUVEAUX FORMATS 


Cette petite routine adaptable à tous les PC satisfera tous 
les utilisateurs travaillant dans un domaine scientifique. 


Le résultat des calculs sera présenté sous une forme avec puissance de 10 et 
un chiffre arrondi après la virgule, ainsi que sous le format habituel pour repère. 


ARUN : Lance le programme immédiatement après la mise sous ten- 

tion. Cette instruction est à supprimer si on ne travaille pas 
sur PC-1500. Pour le mettre en route il suffira de taper RUN 
ENTER. 


INPUT “>”,A : Affiche) et attend un nombre ou un calcul dont le résultat 

sera stocké dans A. La virgule a pour effet de faire disparaî- 
tre le> lorsque la première touche est appuyée. 

USING Formate l’affichage sous la forme SIGNE UNITE.DIZIEME. 

INT LOG ABS A : Calcule la puissance de 10 du nombre A. 

A/... : Met le nombre sous le même format que l’affichage. 

+ SGNA*.05 : Permet de faire l’arrondi sur le dizième par ajout de 5 
centièmes. 

“E”; : Affiche E pour signifier que le nombre suivant est la puissance 

de 10. 

USING : Annule le format définit auparavant. 

INT LOG ABS A ; Affiche la puissance de 10 de A. 

“ =>”; : Affiche =), on pourrait mettre toutes les séries de deux signes 

que l’on veut, ce n’est qu’une décoration. 

A : Affiche la valeur non formatée. 

GOTO 1 : Retourne au début pour attendre un nouveau calcul. 


Remarquez qu’il n’y a aucune définition de WAIT, il faudra donc appuyer sur 
ENTER après un affichage pour retourner au message d’invite. 

Vous pouvez récupérer la valeur du calcul précédent qui se trouve bien évidem- 
ment dans A. 


Nous allons essayer de brancher huit 
sondes sur la seule prise analogique 
du 1600. Christophe POULIN sera 
encore mis à contribution ! 

Il y aura toujours un PC qui nous aidera 
à continuer le travail sur le comporte- 


Marc GIRONDOT 
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KARATE K 


Extrait d’une revue japonaise PIO, ce jeu graphique a 
pour thème la pratique des arts martiaux. Attaqué de tous 
côtés, vous allez devoir vous défendre selon un rituejl 
établi. 


Faites avant toute chose un NEW ou 
ALL RESET. En effet, ce programme 
doit être le premier en mémoire. Tapez 
le Basic et vérifiez-le très attentive- 
ment, surtout la première ligne 5. 
Remarquons de suite que D$ contient 
3 espaces. Sauvez le programme pour 
plus de sûreté, puis tapez POKE 
&201 1,254,254 ENTER. 

Maintenant la ligne 5 doit se trouvée 
modifiée, et D$ contiendra un espace 
et deux pavés noirs. Le jeu démarre par 
RUN ou DEF A, appuyez sur ENTER 
pour effacer l’écran de présentation et 
le numéro de l’étape s’affiche (STAGE). 
Les touches 4 et 6 permettent de se 
déplacer à gauche ou à droite. Les tou- 
ches Z ou C agissent sur les pieds pour 
donner les coups. 

Tout de suite vous êtes assailli des 
deux côtés par des combattants qu’il 
faut tuer pour survivre. Vous n’avez 
hélas pas le choix, mais votre techni- 
que de pieds est souvent mortelle. A 
chaque fois qu’un ennemi meurt, un 
autre le remplace : il y en a beaucoup. 
Votre énergie est matérialisée par les 
pavés noirs, à gauche sur l’écran. 

A chaque fois que vous êtes touchés, 
les pavés diminuent et votre résistance 
aussi. Lorsque tous vos ennemis sont 
à terre, le Grand Maître vient pour le 
combat final armé d’un bâton et si 
vous triomphez de lui, vous passez à 
l’étape suivante, encore plus dure. Je 
vous laisse le soin de découvrir la suite 
du jeu. 

Bon Karaté ! ! 

Jean-François VIGNAUD 
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VOCABLE 


Ce programme a été conçu sur un PC-1 401 SHARP adap- 
table sur les autres 14xx et 12xx. 

De nos jours, on se trouve facilement décontenancé face 
à un étranger, faute de vocabulaire. Comment l’amélio- 
rer et le cultiver, tel est le but que s’est donné VOCABLE, 
conçu et réalisé par Julien Lever. 


Principe d’utilisation du programme: 

Mise en marche : 

Pressez les touches DEF + F, l’ordina- 
teur affichera : « NEW PROG. (Y/N) ? ». 

Il vous demande ainsi par Y ou N si 
vous désirez réintroduire une nouvelle 
liste de mots et effacer les anciens, s’il 
en existait, ou si vous préférez poursui- 
vre une liste de mots qui avait déjà été 
introduite dans la mémoire : 

1 er choix : Y 
2 e choix : N 

Remarque : 

L’ordinateur accepte un maximum de 
38 mots dans sa mémoire. Si pour une 
raison ou une autre vous êtes inter- 
rompu dans votre programmation, 
vous pouvez, après l’avoir éteint, 
reprendre votre liste de mots et la com- 
pléter : pour cela, taper à la question 
« NEW PROG.(Y/N) ? » N. L’ordinateur 
affichera un nombre, puis « COMMEN- 
CEMENT ? ». Il vous suffira d’entrer le 
nombre préalablement affiché puis de 
continuer votre liste normalement. 

Après donc avoir tapé Y, « NBER OF 
WORDS ? » s’inscrit ; vous devez alors 
rentrer le nombre de mots que vous 
désirez enregistrer. Puis l’ordinateur, 
par les question « FOREIGN WORD ? » 
et « TRANSLATION ? » vous demande, 
respectivement, d’introduire le mot de 
la langue étrangère et sa traduction. Si 
le nombre de mots introduit est infé- 
rieur à 38, pour continuer le pro- 
gramme, tapez ENTER lors de la ques- 
tion : «FOREIGN WORD?»; vous 
obtiendrez ainsi la suite du 
programme. 

Cependant, si le nombre de mots entré 
est égal à 38, ou au nombre précédem- 
ment introduit lors de la question 
« NBER OF WORDS ? », le programme 
affiche alors : « LEVEL(1,2,3)? ». Le 
choix du numéro permet de sélection- 
ner le temps qui vous sera accordé 
pour chaque réponse lors de l’interro- 
gation, à savoir (1 = 30 s, 2 = 20 s, 3 = 13 
s). Puis avec la question 
«TIME(1,2,3)7», procédez de même, 


sachant qu’ici c’est le temps de l’inter- 
rogation entière que vous sélectionnez, 
c’est-à-dire 1 = l’ordinateur vous inter- 
roge 19 fois, 2 = 38 fois, 3 = 76 fois. 

L’interrogation commence : 

La machine vous donne un mot tiré au 
hasard parmi les traductions données, 
puis il affiche un écran vide : à vous de 
taper le mot étranger, en insistant bien 
sur chaque touche de façon prompte. 
En cas de faute de frappe, appuyez sur 
«O», l’écran effacera tout le mot. Une 
fois que votre mot est orthographié, 
appuyez sur « = ». L’ordinateur com- 
pare votre réponse avec la bonne tra- 
duction ; son verdict tombe rapidement 

- par l’affichage « GOOD !!! », l’interro- 
gation continue, un autre mot est 
demandé. 

- par l’affichage de « WRONG U! », il 
vous donne le mot corrigé et repose ce 
même mot afin qu’il soit bien 
mémorisé. 

Le score apparaît toutes les cinq bon- 
nes ou mauvaises réponses avec un 
changement automatique de force 
(level (1,2,3)). 

Pour 5 mauvaises réponses, vous 
régressez d’un niveau et inversement. 
Lorsque le test se termine, l’ordinateur 
vous le fait savoir et donne votre score, 
le nombre de bons et de mauvais mots 
et, en prime, son appréciation. 

Ensuite, il vous redemande si vous vou- 
lez rejouer. Si oui, tapez Y, si non tapez 
N. 

Un avantage de ce programme : après 
avoir éteint la machine, les mots pré- 
cédemment programmés demeurent 
dans la mémoire. Pour vous faire réin- 
terroger, tapez DEF G, l’interrogation 
s’en suivra. 

ATTENTION : 

Une erreur surviendra si vous n’avez 
pas déjà tapé DEF F et introduit une 
liste de mots. Tous les mots enregis- 
trés restent jusqu’à renouvellement du 
programme en ne tapant pas Y à 
« NEW-PROG ? ». 



D’ailleurs, pour éviter toute erreur 
fâcheuse, le programme vous signalera 
que la mémoire est déjà remplie en affi- 
chant :« SAVED MEMORY ». 

Autre avantage : 

A l’aide des instructions d’enregistre- 
ment de variables sur bande par 
IN PUT # et PRINT #, vous pouvez 
vous constituer une banque de don- 
nées de mots sur cassette. 

Voilà, bonne chance ! 

Progrès imminents assurés. 

Julien LEVER 
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CONVERSION DE 
TEMPÉRATURE 


MODE D EMPLOI 


Ce programme permet de faire différentes conversi 
ans entre plusieurs échelles de températures .11 oc 
cupe 1L70 octets de mémoire . Taper RUN pour obtenir 
te menu .Lorsque les échelles de températures dêsi 
rées s 'affichent, taper " O “Joui). Taper sur ENTER à 
chaque fois pour faire avancer le menu. Puis taper /' 
inconnue :"C"pour celsius, "K"pour kelvin," F" pour 
fahrenheit et "R" pour réaumur. Entrer la valeur de la 
température connue et vous obtenez la conversion 
désirée. 

J LES DES CONVERSIONS : 

_ Conversion entre celsius (C) et kelvin (K) 

C = K- 273 
K =C+ 273 

_ Conversion entre celsius(C) et fahrenheit (F) : 

C=( F-32)*l 10/ 18 ) 

F=(C*1.8)+32 

_ Conversion entre celsius (C) et réaumur (R) ■ 

C= 1.25 x R 
R=0.8*C 

Conversion entre kelvin (K) et fahrenheit (F) : 

K = ((F -32) *(10/ 18)) + 273 
F=((K-273)*1.6)+32 

_ Conversion entre kelvin (K) et réaumur (R) 

K=(l.25 x R)+273 
R= I K-273i*C.8 

_ Conversion entre fahrenheit (F ) et réaumur (R ) ■ 

F- (R *2.25) + 32 
R- (F ~32)*(8/18) 

A LE N CE DES VAR I ABLES: 

"C" valeur en celsius . "F": valeur en fahrenheit. "K"- 
valeur en kelvin. ’ R" : valeur en réaumur. "F$" mcon 
nue 7 (K ou R ) . "G$": inconnue 7 (F ou R). "1$ < TEMPE 

RA > "J$" < TURE EN ' j '.M$" : inconnue 7 (C ouR) . "N$": 
mconnue ? ( K ou F) . "P$": inconnue 7 (CouK). "Q$":mcon 
nue 7 (C ou F) "S$":<UNE AUTRE (0/N)\"U$":< CELSI 
US> "V$" < KELVIN . >. "W$‘: <FAHRENH>. "X$":<EIT:>. 
"Y$" 'REAUMUR \'Z$": < >. 


Edmond LEMAITRE 


1 /‘LEMAITRE EDMOND" 

5 : WAIT 83 : CLEAR : PRINT " * CONVERSION DE ".PRINT 
"TEMPERATURE* ":WAIT 
1 0: INPUT "CELSIUS..."; A$ 

1 5: INPUT "KELVIN.. /;B$ 

2 0 : IN PU T " FAHRENHEI T. . . ", C$ 

2 5 : INPUT "REAUMUR.. . ";D$ 

3 0 :I$= "TEMPERA " : JÎ= "TURE EN" 

3 5 : U$= "CELSIUS V$= "KELVIN: ":W$= "FAHRENH ":X$= 

"EIT: ": Y$= "REAUMUR ":Z$ = ": " 

4 0:1F (A$= " 0 ")AND (B$= "0 ")AND (C$ = " ")AND (D$= " ") CO 

TO 100 

4 5: IF (A$= "0 ")AND lB$= " ")AND (C$= " O ")AND(D$- " ") CO 

TO 200 

5 0:IF(A$= " 0 ")ANDlB$=" ")AND(C$=" ")AND(D$=" 0") CO 

TO 300 

5 5:1 F (A$= " ") AND(B$= "0 ")AND(C$= "0 ")AND(D$=" ") CO 

TO 4 00 

— 6 0:1 F (A$= " ") AND(B$= "0 ")AND(C$, " ")AND(D$= "0 ") GO 
TO 500 

6 5 :IF (A$= " ") AND (Bî=" ")AND(C$= " 0")AND(D$="0 ) CO 

TO 600 

7 0 : GOTO 5 

1 0 O. BEEP 1 .INPUT "INCONNUE 7 ";P$ 

1 1 O IF P$="C" INPUT"K= ";K:C=K-273:BEEP 3. WAIT 7 
2 : PRINT 1$ + J$:WAIT: PRINT U$+Z$,C:GOTO 1000 
1 2 0 IF P$="K" INPUT "C= ";C:K= C+273:BEEP 3. WAIT 72: 
PRIN T 1$ +J$ :WAIT : PRIN T V$ , K : GOTO 1000 

1 3 0: GOTO 5 

2 0 O.BEEP V.INPUT "INCONNUE ?";Q$ 

2 1 0 : IF QÎ="C" INPUT "F= ";F:C=(F-32)*(10/18):BEEP 3: 
WAIT 72: PRINT I$+J$:WAIT: PRINT U$+Z$ .C . GOTO 
1000 

2 2 0:1F Q$=" F" INPUT "C= ";C:F =( 1.8* Ch32 :BEEP 3 : WA 
IT 72: PRINT I$+J$:WAIT : PRINT W$+X$,F: GOTO 
1000 

2 3 0: GOTO 5 . 

3 0 O.BEEP 1: INPUT "INCONNUE 7 ".M$ 

3 1 0 ■ IF M$="C" INPUT "R= ";R :C=1.25*R:BEEP 3 :WAIT 72: 
PRINT I$+J$:WAIT: PRINT U$+Z$.C:GOTO 1000 
3 2 0 :1F M$= "R " INPUT "C= ", C:R= 0. 8*C: BEEP 3: WAIT 72: 
PRINT 1$ +J$ :WAI T: PRINT Y$+Z$,R: GOTO 1000 

3 3 0 : GOTO 5 

4 0 0 :BEEP 1 :INPUT "INCONNUE 7 ";N$ 

4 1 0 : IF N$="K" INPUT "F= ";F:K=((F-32)*(l0/18))+273 : 
BEEP 3: WAIT 72 PRINT 1$ +J$ :WAI T: PRIN T V$,K: 
GOTO 1000 

4 2 0 ■ IF N$="F" INPUT'K- ";K:F = ((K-273)*1.8)+32:BEEP 
3: WAIT 72.PRINT I$+J$:WAIT : PRINT W$+X$,F:GOTO 
1000 

4 3 O.GOTO 5 

5 0 O.BEEP l. INPUT "INCONNUE ?";F$ 

5 1 0:1F F$=" K" INPUT "R= " ;R:K=(l.25*RF 273 BEEP 3: 
WAIT 72 :PRINT I$*J$:WAIT .PRINT V$,K:GOTO 1000 
5 2 O IF F$="R" INPUT "K= ";K:R=(K~273)*0.8:BEEP 3: 

WAIT 72 . PRINT I$+J$:WAIT .PRINT Y$+Z$.R:GOTO 
1000 

5 3 0: GOTO 5 

6 0 0 : BEE P VINRUT “INCONNUE 7 ";G$ 

6 1 0 IF G$-"F" INPUT "R= ";R:F =(R*2.25h32:BEEP 3: 
WAIT 72: PRINT 1$ +J$:WAI T .PRINT W$+X$,F:GOTO 
1000 

'6 2 0 : IF G$= "R" INPUT "F= ";F :R=(F -32)*(8/18):BEEP 3 
:WAIT 72 . PRINT I$+J$:WAIT .PRINT Y$ + Z$,R : 
GOTO 1000 
6 3 O.GOTO 5 

1 0 0 0: INPUT "UNE AUTRE (0/N)";S$ 

1 0 1 0 :IF S$="0" GOTO 5 
10 5 0: END 
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WATER 

PANIC 


Encore un jeu Japonais qui 
est à mon sens franche- 
ment GÉNIAL (Eh ! les Fran- 
çais, on dort ?). Sur un 
écran aussi petit, c’est un 
vrai tour de force de réali- 
ser un jeu d’arcade aussi 


intéressant. J’en veux pour 
preuve le succès qu’il a ren- 
contré pendant certains TD 
de maths ennuyeux à la 
Fac. 


Que les possesseurs de PC 1401/02 se 
rassurent, une version leur sera propo- 
sée dans un prochain numéro (cela 
nécessite un peu de travail, alors 
patience I). Suivant la carte RAM dis- 
ponible dans votre PC 1450, faites Ail 
Reset, puis : 

- pour une carte 4 Ko, faire POKE 
&5F01,0,&55 ENTER 


- pour une carte 8 Ko, faire POKE 
&5F01,0,&45 ENTER 

- pour une carte 16 Ko, faire POKE 
&5F01,0,&25 ENTER 

puis NEW ENTER. 

Considérons le cas d’une carte 4 ko de 
base (il reste 1838 octets). Le jeu 
WATER PANIC est entièrement en lan- 
gage machine et va de l’adresse &2040 
à &24FF. Par contre, pour le mettre en 
mémoire, on passe par un chargeur 
Basic. En fait, à cause du peu de 
mémoire disponible, on passera par 
quatre programmes Basic. On les 
tapera, sauvegardera et exécutera tour 
à tour (par RUN). Le LM se construit 
petit à petit et ne s’efface pas avec un 
NEW. Une fois le dernier chargeur exé- 
cuté, on peut sauver le LM par : CSAVE 
M «W.PANIC»;&2040,&24FF ENTER. 

Les possesseurs de carte 8 ou 16 ko 
peuvent modifier les chargeurs pour 
faire une ou deux passes seulement. 
Les programmes contrôlent par check- 
sum la validité des codes entrés, et 
affichent ‘CS ERROR IN No’ si une 
erreur de frappe est détectée. Le bon 
chargement est mentionné par l’affi- 
chage de ‘Completed’. Respectez l’or- 
dre d’introduction des chargeurs 
numérotés de 1 à 4. Maintenant que le 
jeu est en mémoire, il s’exécute par 
CALL &23F0. Et les touches de dépla- 
cement gauche/droite sont 4 et 6. Sur 
la figure publiée quelque part pas loin, 
vous pouvez voir des exemples d’écran 
possible . Après un écran de présen- 
tation, le jeu débute. 

Vous dirigez un récipient qui peut 
contenir au maximum 3 gouttes. Il faut 
recueillir ces gouttes qui tombent au 
hasard parmi 4 positions. Vous avez 
trois vies, symbolisées par trois gros- 
ses gouttes d’eau à droite de l’écran, 
juste avant le score. Mais là où ça 
devient difficile, c’est qu’il faut vider le 
bac avant qu’il ne déborde, à gauche 
ou à droite. Une goutte en trop (3 maxi) 
ou une goutte à côté, et vous perdez 
une vie. 

Bien sûr, la machine prend un malin 
plaisir à déplacer un obstacle empê- 
chant tantôt à gauche, tantôt à droite 
de vider son bac dans les grands réci- 
pients (qui se vident seuls). Tous les 
100 points, vous avez une vie en plus 
par un bonus, mais le jeu s’accélère 
notablement. Le High Score est à 420, 
alors à vos PCs. Vous verrez, on com- 
prend rapidement, et c’est très rageant 
car ça va vite. 

Le Club 











CODES 


5803 et du LH-5801 
PC- 1500. 


du 


ASSEMBLEUR 


Le PC- 1600 comporte deux 
microprocesseurs : le SC- 
7852 compatible Z-80 et le 
LH-5803. Dans cet article, 
on va comparer les codes 
assembleur du Z-80 et du 
SC-7852 puis ceux du LH- 


D’abord le SC-7852 peut gérer huit 
pages mémoires de 0 à 7 et possède 
donc plusieurs instructions en plus par 
rapport au Z-80. Les codes du Z-80 se 
trouvant très facilement dans les livres 
d’informatique, je ne les donnerai pas 
dans cet article. Les instructions sup- 
plémentaires du SC-7852 correspon- 
dent aux fonctions RST du Z-80. 

&C7 - Code du reset du SC-7852 et 
enclenche la routine d’initialisation. 
&CF - Ne correspond à aucune 
fonction. 

&D7 - Ne correspond à aucune 
fonction. 


&DF OlOh - 01 octet faible de l’adresse 
de saut 

Oh octet fort de l’adresse 
de saut. 


Exécute un saut inconditionnel à 
l’adresse OlOh (JP OlOh) en page 6 ou 3. 
Cette instruction est suivie de deux 
octets définissant à la fois l’adresse de 
saut et le numéro de page. 


- Si Oh ^&80 le saut s’effectue en page 
6 à l’adresse OlOh 

- Si Oh < &80 le saut s’effectue en page 
3 à l’adresse OlOh. 


Je rappelle que la mémoire morte pro- 
gramme de la page 3 va de &4000 à 
&7FFF, et celle de la page 6 va de 
&8000 à &BFFF. 


-rîêV 


&E7 a OlOh : 

-01 octet faible de l’adresse de saut 

- Oh octet fort de l’adresse de saut 

- a numéro de la page où s’effectue le 
saut. 

Exécute un CALL à l’adresse OlOh de la 
page a. 

Au premier RET code &C9 le pro- 
gramme continue son exécution dans 
la page où se situe le CALL. 

&EF - ne correspond à aucune 
fonction. 

&F7 - effectue un saut à l’adresse 
&F0D4 en page 0 (JP &F0D4). 

&FF - effectue un saut à l’adresse 
&F0D7 en page 0 (JP &F0D7). 

Maurice CHOUCROUN 


NEWS 


Possesseur d’un PC- 1500 
depuis le mois de mai 1 982, 
je suis tombé sous le 
charme du 1600 en le 
voyant à Paris début juillet. 

Après quatre années de 
bons et loyaux services, le 
1500 se voyait donc rem- 
placé par le petit nouveau. 
Et c’est pour vous parler de 
lui que je vous écris. 

Je dirais tout d’abord que c’est une 
machine fantastique qui est à la fois 
plus puissante que le 1500, plus rapide 
et plus souple. Que demander de 
mieux ? Ma seule déception concerne 
la compatibilité que je trouve relative 
avec le 1500, mais j’y reviendrai plus 
tard. 

Je voudrais tout d’abord vous donner 
quelques astuces que j’ai découvertes 
durant un mois d’utilisation. 


Et c’est là que j’ai un problème que 
vous allez sans doute pouvoir résou- 
dre : on peut compter 4 zones de ROM 
de 16 ko chacunes dans l’aire du Z-80A, 
or cela ne fait que 64 ko et non 96 
comme indiqué par SHARP. Comme il 
n’y a pas de raisons de douter de ce ' 
que dit SHARP, la question se pose : 
où sont les 32 ko manquants ? Ce ne 
sont pas ceux de la ROM de la 
CE-1600P puisqu’ils sont dans le péri- 
phérique et non dans l’unité centrale. 

Il faut alors peut-être compter la ROM 
adressée par le LH 5803. On constate 
sur la carte que celle-ci est constituée 
des 16 ko qui constituent la ROM du 
1500 et de 4 ko supplémentaires. Cela 
ne nous fait que 20 ko. On arrive donc 
à trouver 80 ko de ROM dans le 1600. 

Il m’en manque 16. Les avez-vous trou- 
vés ? 

Je vous avouerai que lorsque j’ai 
découvert que la ROM adressée par le 
LH était celle du 1500 à quelques 
octets près, j’ai trouvé ça génial : réus- 
sir à mettre un 1600 et un 1500 avec 
son processeur et sa ROM sous un 
volume identique au vieux 1500, cela 
donne une idée de la différence de 


Si le manuel nous donne une carte de 
la mémoire du 1600, celle-ci est assez 
incomplète comme vous avez dû le 
constater vous-même. 

Voici la carte telle que j’ai pu l’établir : 
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technologie entre les deux machines. 
Je me suis alors dit que les logiciels 
que j’avais écrits et qui utilisaient des 
possibilités avancées du 1500 allaient 
pouvoir tourner sur le 1600 puisqu’en 
mode I c’était la ROM du 1500 qui était 
adressée par le LH-5803. Fort de cette 
certitude, je lance un programme utili- 
sant la possibilité de détournement du 
driver clavier et... rien !! Histoire de 
vérifier je tente la manoeuvre décrite 
dans le « Sharpentier » n° 10, et tou- 
jours rien. Me suis-je mal débrouillé où 
est-il impossible d’utiliser cette 
astuce ? Le désassemblage de la ROM 
à l’adresse E243 est pourtant identique 
à celui du 1500. Je veux bien que le cla- 
vier soit scruté au travers de la ROM 
spécifique au 1600, mais alors pour- 
quoi avoir pris la peine de remettre 
cette routine dans la ROM ? Déçu, je 
charge mon logiciel de jeu préféré, 
écrit en collaboration avec un copain, 
et qui utilise pour l’affichage des mes- 
sages de caractères redéfinis. C’est 
une horreur ! ! ! J’ai droit aux symboles 
graphiques de l’IBM-PC mais pas à 
mes caractères. Là encore, même avec 
un autre logiciel utilisant cette intéres- 
sante possibilité du 1500, echec ! Ce 


qui met à mal la compatibilité annon- 
cée par SHARP ! Je ne vous surpren- 
drai pas en vous disant que l’astuce 
permettant la réassignation du clavier 
avec ht ne fonctionne pas, etc. Je n’ai 
pas encore eu le temps d’essayer un 
logiciel basé sur la routine d’interrup- 
tion publié dans le « Sharpentier » n° 
6, mais j’ai peur ! Je vais chercher à 
faire fonctionner tout ça malgré ces 
premiers échecs mais je voudrais 
savoir si vous-même n’avez pas déjà 
trouvé comment faire. Il serait dom- 
mage que les logiciels les plus avan- 
cés, donc souvent les plus intéres- 
sants, ne fonctionnent pas sur le 1600. 

Concernant le LM j’ai eu une autre sur- 
prise. Je charge le logiciel « PLANET 
FIGHTER » publié dans un « Sharpen- 
tier » et je tape : XCALL &41 DO. Au vu 
de la rapidité de déplacement de 
l’avion de combat, j’ai cru avoir à faire 
à un logiciel BASIC sur PC-1211 !!! L’in- 
térêt de ce logiciel sur le 1500 étant sa 
rapidité liée au LM c’est un comble ! 

En fait, tous les programmes LM 
LH-5803 me semblent tourner nette- 
ment moins vite sur le 1600 que sur le 
1500 (en particulier Planet). Cela est 


étonnant car si l’on en croit la notice, 
le LH-5803 tourne à 1.3 Mhz comme le 
LH-5801. Avez-vous une explication à 
me donner? 

Pour terminer cette partie LM, j’ajoute- 
rai que je souhaite que SHARP publie 
rapidement un TRM pour le 1600. 

Jérôme GAUDIN 
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D’ENTRÉE 
ANALOGIQUE 


Le PC 1600 , quelle déton- 
nante machine !!! 

Ce coup-ci, on a vraiment 
fait un effort pour avoir un 
micro puissant dans « la 
poche » chez SHARP. 


En effet, tout est prévu (d’après la 
documentation L.M) pour mettre dans 
le logement S2, 1 Mo de ROM ou 512 
Ko de RAM sous forme de disque 
mémoire. 

A quand les mémoires de 512 Ko de 
RAM dans un boîtier d’extension !!! 
Le PC 1600 possède aussi un port d’en- 
trée analogique. La documentation est 
très mal faite à ce sujet. Voici un petit 
schéma pour s’amuser avec. 

Pour vérifier le montage, s’assurer 
d’abord à l’aide d’un voltmètre que 
entre 1 et 3, il n’y a pas plus de 3 volts, 
sinon rajouter une résistance comme 
indiqué puis écrire : 

10 A = AIN:P.A.:WAIT10: 

CLS:G.10 

Amusez-vous bien ! 

Olivier PROTT 







INITIATION AU LM ESR-H (7«) 

Pour notre septième rencontre, nous allons revenir sur 
un sujet déjà abordé et que vous attendez tous : les MoVes 
et EXchanges. Ces instructions sont très puissantes et 
nous allons le voir, très intéressantes pour déplacer des 
blocs de mémoires pointés par les registres P, Q ou DP. 


En effet, nous n’avions étudié jusqu’ici 
que des instructions affectant ou 
échangeant un seul registre ou une 
seule adresse mémoire. Par exemple, 
MVMD : (DP) (P). Imaginons mainte- 
nant une fonction permettant de renou- 
veler cette opération n fois pour des 
adresses et des registres contigüs. Il 
faudrait pour cela répéter MVMD n fois 
en incrémentant de 1 DP et P. Nous 
avons deux instructions pour faire 
cela ; MVWD et MVBD. Le W signifie 
que l’on prend I pour compteur d’incré- 
mentation et B indique J. Avant donc 
d’utiliser MVWD ou MVBD, il faut char- 
ger dans I ou J la valeur n-1 correspon- 
dant au nombre de Move à faire ; n-1 
fois, car l’instruction est exécutée au 
moins une fois. Pour ce faire, la valeur 
dans I ou J est automatiquement 
copiée dans un registre intermédiaire 
(non utilisable directement) appelé d. 

MVWD: code &18 l->d 

On répète (DP)->(P), DP + 1, 

P + 1, d — 1 

Jusqu’à ce que d = &FF 
Si I ou J est nul (d = 0) un seul Move est 


effectué. De même : 

MVBD: code &1 A J->d 

On répète (DP)-^(P), DP + 1, 
P + 1, d-1 

jusqu’à ce que d = &FF 

Il est évident que P et DP sont modifiés 
car incrémentés. Les flags ne sont pas 
touchés et les registres I et J ne sont 
pas affectés. Notons que par exemple 
si P = 8, DP = &6900 et 1 = 1, après 
MVWD P = &0A, DP = &6902 et 1 = 1. 

Comme J est par définition égal à 1, 
cela permet des Moves (et nous le ver- 
rons des échanges) sur 16 bits, pour 
des pointeurs d’adresse par exemple. 

Concrètement on peut expliciter ces 
mnémoniques en écrivant d’une autre 
manière la fonction accomplie : 
MVWD : (DP) - (P), (DP + 1)-* (P + 1 ),... 
(DP + I-1)-(P + I-1) 

Prenons DP = &6F01, P = 4, alors 
MVBD mettra le contenu de &6F01 et 
&6F02 respectivement dans XI et Xh. 
Soit l’adresse de début de la zone 
Basic (pour le 1350 :START BASIC:&6F 
01/02) dans X. L’opération inverse ne 


peut se faire que par un échange avec 
EX WD ou EXBD. 

Ce qui oblige pour éviter de perdre le 
contenu de ce qui est pointé par P (soit 
X) de refaire un Move. Exemple : 

LP &04 - XI pointé par P 

LIDP &6F01 - START BASIC pointé par 

DP 

EXBD - mettra dans START BASIC 
l’adresse dans X, mais 
LP &04 
LIDP &6F01 

MVBD - replacera dans X la valeur ini- 
tiale sans modifier START BASIC. 
Notons que LU &01 n’est pas utilisé 
car J vaut déjà 1. 

Voyons ce que donne EXWD et EXBD : 
EXWD : code &19 l-*d 

On répète (DP) «(P), DP + 1, 

P + 1, d-1 

jusqu’à ce que d = &FF 

EXBD: code &1 B J^d 

On répète (DP) «(P), DP + 1, 

P + 1, d-1 

jusqu’à ce que d = &FF 

Là aussi les flags et les registres I et 
J ne sont pas modifiés. Mais DP et P 
sont incrémentés. 

Nous pouvons aussi copier une partie 
de la RAM interne dans une autre par- 
tie de la RAM interne. Pour ceux qui 
seraient distraits, je signale que nous 
avons vu plus haut comment copier (ou 
échanger) une partie de la RAM externe 
(donc la RAM programme) vers la RAM 
interne. Nous utilisions pour cela les 
registres d’index DP et P. Comme nous 
avons deux registres d’index pour la 
RAM interne, P et C (ils sont rusés ces 
Japonais, n’est-ce-pas ?), nous devi- 


nons tout de suite ce que font MVW et 
MVB : 

MVW: code &08 l-d 

On répète (Q)-»(P), C + 1, 

P + 1, d-1 

jusqu’à ce que d = &FF 
Idem pour MVB, avec J->d de code 
&0A 

Et on a aussi EXW et EXB : 

EXW : code &09 J ->d 

On répète (P)«+(Q), P + 1, 

C + 1, d-1 

jusqu’à ce que d = &FF 
Idem pour EXB, avec J -+ d de code &0B 

P et O sont incrémentés. I, J et les flags 
ne sont pas touchés. 

Exemple : pour copier Xreg dans Yreg 
LP &18 ■ P pointe sur premier octet de 
Yreg 

LIC &10 - C pointe sur premier octet de 
Xreg 

LII &07 - on répétera le move 8 fois 
MVW - notons bien que l’on va de O 
vers P. 

Xreg et Yreg sont donnés pour tous les 
PC sauf 1245/51/55 (voir numéro 17 
page 30). 

Bon, je fatigue, alors j’arrête là. La pro- 
chaine fois nous terminerons ce cha- 
pitre en parlant des instructions FILM 
et FILD, et nous expliquerons com- 
ment copier un bloc d’octets de la RAM 
externe vers la RAM externe. Grâce à 
X et Y, au travers des mnémoniques 
IXL, DXL et IYS, DYS. Pendant que l’on 
y sera, on en profitera pour faire un sort 
à IX,IY,DX et DY. 

Ouf ! ! FINI. 

Jean-François VIGNAUD 


MUSIQUE ET ACOUSTIQUE 


Le programme ci-joint permet d’étudier, du point de vue 
des fréquences sonores, les notes de la gamme tempé- 
rée inventée au 18 e siècle par J.-S. Bach. 


A chaque note correspond une fré- 
quence fondamentale : par exemple le 
Do de la 3 e octave (celui qui est au 
milieu du clavier du piano) a une fré- 
quence de 261 ,6 Hz. Le passage à l’oc- 
tave supérieure donne un doublement 
de cette fréquence (soit 523,2 Hz pour 
le DO 4). La gamme chromatique divise 
cette octave en douze demi-tons dont 
les fréquences sont en progression 
géométrique de raison (2) A 1/12 . Ainsi le 
Do dièse 5 a la fréquence du Do 3 mul- 
tiplié par cette raison, soit 261,2 x 
(2) A = 277,1 Hz. Contrairement à ce 
qui se passait avec la gamme plus 
ancienne de Zarlin, la gamme tempé- 
rée ne distingue donc pas le Ré bémol 
du Do dièse. C’est pour cette raison 
que le logiciel ne parle pas de notes 
bémolisées. 

La fréquence de 440 Hz du La 3 sert 
théoriquement de base pour toutes les 
autres notes. Cependant, pour éviter 
les erreurs cumulées, le logiciel recale 
la fréquence de base à chaque octave 
sur celle du La correspondant : par 
exemple sur les 220 Hz du La 2 ou les 
880 Hz du La 4. 

En plus de la fréquence fondamentale, 
le logiciel peut donner la fréquence des 
harmoniques, c’est-à-dire les multiples 
de la fréquence fondamentale par un 
nombre entier. Évidemment, cela n’a 
rien d’une prouesse, mais ce qui est 
beaucoup mieux, c’est qu’il est capa- 
ble de rechercher à quelle note corres- 
pond approximativement la fréquence 
de cet harmonique. Ainsi, l’harmonique 


de rang 2 du Do 3 a une fréquence de 
784,8 Hz, bien proche des 783,9 Hz du 
Sol 4. 

Lorsque l’on joue une note sur un ins- 
trument de musique, la fréquence fon- 
damentale est accompagnée de ses 
harmoniques avec des intensités diver- 
ses. C’est ce phénomène qui produit le 
timbre de l’instrument. Le Do 3 joué au 
piano ou au violon a la même fré- 
quence fondamentale de 262,6 Hz ; la 
différence de sonorité entre les deux 
instruments vient de la présence, avec 
une intensité plus ou moins grande, 
des harmoniques de rangs 1, 2, 3 ... 
d’une manière différente sur chacun 
des instruments. 

Le logiciel, outre la gamme chromati- 
que donnant les fréquences des 12 
notes d’une octave, est capable de 
monter les gammes diatoniques dans 
les modes majeur ou mineur. Ces gam- 
mes comprennent sept notes ainsi 
réparties : 

mode majeur 2 fois 1 ton + 1/2 
ton + 3 fois 1 ton + 1/2 ton 
mode mineur 1 ton + 1/2 ton + 2 fois 

I ton + 1/2 ton + 1 ton et 1/2. 

II suffit d’entrer le nom de la gamme, 
puis le mode et l’octave. La seule limi- 
tation vient des notes bémolisées : 
pour avoir la gamme de Si bémol 
majeur, il faut parler à la machine de 
la dièse majeur. Un sous-programme 
supplémentaire viendra peut-être un 
jour combler cette lacune- 

Daniel MAGNIN 





DES ERREURS... QUI N’EN FAIT PAS ? 


NUMÉRO 15 • PAGE 22 • JAQUETTE D’OR 


Le SHARPENTIER serait-il censuré ? 

Nous n’osons y songer, mais il faut bien admettre qu’il manque deux lignes au 
deuxième programme de l’article « JAQUETTE D’OR » du numéro 15, page 22. 
Les voici enfin ! 

Mais en fait, plus que cet oubli, ce qui est plus grave, c’est que seul M. DAN- 
GLA s’en est aperçu alors que le programme dans sa version présentée n’est 
pas utilisable. Serait-il le seul à taper les programmes du bulletin ? Ou bien avez- 
vous eu la paresse de prendre la plume pour nous indiquer cette bogue que vous 
aviez corrigée de main de maître ? 

Dans le doute, nous garderons la deuxième solution ! 
AAAAAA/WV^AVv^^^A^A^A/^^AAA/W^A^AAA/vV✓VVWv\^AAAAA 
2135:1F F< = 60/JTHEN 2190 
2150:PAUSE ”OVER-FLOW”;GOSUB 4030 

WvV^^A\V^AVAAAAAVv^M/V\AA^AAV^A^^^AAAAAAAAV^WV 


NUMÉRO 16 • FONCTION 


Il faut bien revenir à l’article «FONCTION» du numéro 16. 

Dans le numéro 18, Monsieur H. Faucon a aimablement signalé l’erreur imputa- 
ble à l’imprimeur qui, je l’ai remarqué, est allergique au signe de la puissance 
et prend un Y pour un X. 

Il s’ensuit que les lignes fautives doivent être lues avec le texte correspondant 
afin de savoir de quoi on parle. 

“La formule suivante va nous permettre de combler la lacune de notre appareil : 
R = X A 2 + Y A 2:R = SQR R ” 

A titre de complément, elle peut s’écrire d’une autre façon : 

R = (X * X) + (Y * Y) : R = SQR R 

Et pour ceux qui possèdent un PC 1251 : 

R = XX + YY : R = SQR R 

Seconde solution, conservant les mêmes variables (X,Y), ce qui est souvent bien 
utile ! 

AAA/^AWAAAAAA^^^^A^^AAVvAAA/WWsAAA/vV^VA^vVV^AAAAA 
X = R 

X = (X * X) + (Y * Y) : X = SQR X 

vVVVvVNAVW y AAA\A/AV\AA/VVWVVVvAAVV\\VAVW s A^ v /Vv 

Jean DUBUS 

NUMÉRO 18 • 

PAGE 33 

A propos de MAD 
= ENTER correspond à # 

PAGE 23 

^AA/V^AAA/WVVVV^AAVvVA^^AA/V^A^AAAAMAVAVAV^AAAA 

10 INPUT”QTE DISQUES (S) = ”;N 
181 = l*U/9:RETURN 

VVVVV\VSVWWNAVWWWN/VVVWWAVWVv\AAAAA/VWVVV 


PAGE 24 

AAAAAAAA/VVvVvVv^AVvVV^AAAA/V^AVyVvVvVVv\VA A AAAAAA 

14 FOR K(R) = 1 TO Q 

18 l(R - 1) = l(R - 1) * U(R)/9:R = R - 1 :RETURN 
WVVnAAVvVvVAVvA^VWWNA/VVVVVWvVWWvAAV^AVWVV 


AA^AAAAVVVvVvVVvV'/vV\^vAAAA/VVVVVVvVvV\\AAVvVvAAAAA 

640 IF C$ = ”&”LET A = X*Y:GOTO 690 

650 IF C$ = ”V”LET A = X + Y-X*Y:GOTO 690 

660 IF C$ = ”= >”LET A = 1 - X + X*Y:GOTO 690 

670 IF C$ = ”< = >”LET A = 1 -X-Y + 2*X*Y:GOTO 690 

vVVVvNAVvVVV\AAMAA/VWN^VVVVv\VWWVWWWVV\A/VVv 


AAAAA'\VvVv\A/vVv\AA^/v^V\AA/WVvVV\A/vV\VvVvVAAAAAA 

A*1000 + B*100 + C*10 + D*1 
A*N a 3 + B*N a 2 + C*N1 + D*N a 0 
A*2* 3 + B*2 a 2 + C*2 a 1 + D*2 a 0 

^A^VVvWW^A\\MA^M/^VV^A/VV\V^AVVvVvMA^/W^^AA/VVVv 

, il vaudra au moins 128 


PAGE 19 

XOR © NOT A = Â ANORB = Â+B 

Formules : 

1) A + A = 1 
A.Â = 0 

8) A + B = A.B 

9) A.B = A + B 
A®B = (A.B) + (B.A) 

PAGE 27 

SUPER CALt dernière ligne 2 e colonne 

CALL &nnnn:10 BEEP 10 

Pointeur : t î 

Position : PILE Y 


PAGE 26 

ASTUCE 2 

4...:J = J + 3 + PEEK(J + 2):... 

PAGE 36 

Le listing est page 48 

PAGE 4 

§ 6, remplacez tous les blancs par A 
IN PUT #@>$ (*)&(*) 

Fin de texte : SPACE ◄ INS 
Remplacez les + par des © 
et c + c h par c = c©h 
1520 IF M(K,P)< >1 THEN 1550 

PAGE 15 


PAGE 18 






GESMAIL 


«Gesmail» est un logiciel 
de gestion d’un fichier 
d’adresses pour ordinateur 
SHARP MZ 700 muni d’une 
imprimante et d’un lecteur 
de disquettes KERSTEN & 
PARTNER. 

Dès la mise en route du pro- 
gramme, il vous sera posé 
la question « Travail sur 
fichier existant » qui vous 
permettra de mettre en 
mémoire un fichier se trou* 
vant sur disquette. 

Puis il vous sera proposé le 
menu principal sur deux 

A a a a A. A A AA AA A AA A A AAAAAaaa 


lignes en bas de l’écran. 
Pour choisir une option, 
déplacez-vous à l’aide de la 
barre d’espace, puis vali- 
dez l’option retenue en 
tapant « CR ». 

Dix options sont possibles : 

LIRE, FEUILLETER, CRÉER, MODI- 
FIER, SUPPRIMER, TRI, MAILING, 
SAUVEGARDER, ÉDITER, ARRÊT. 

LIRE : Cette option vous permettra de 
rechercher une fiche précise. Il vous 
sera demandé d’entrer les deux per- 
sonnes données de la fiche. Celle-ci 
vous sera alors affichée en cas de 
recherche positive. 

FEUILLETER : Cette option vous per- 
mettra de vous promener dans le 
fichier. Un nouveau menu vous sera 
alors présenté : 

I pour avancer dans le fichier 


t pour revenir en arrière 

<- pour retourner au menu principal. 

CRÉER : Il vous sera alors demandé 
d’entrer chacune des 8 données possi- 
bles constituant une fiche. 

MODIFIER : Pour corriger une ou plu- 
sieurs zones de la fiche. Il vous faut 
d’abord entrer les deux premières don- 
nées. La fiche à corriger sera alors visi- 
ble à l’écran. Tapez alors le numéro de 
la rubrique à modifier puis entrer le 
nouveau contenu de cette zone. 

SUPPRIMER : Entrer les deux premiè- 
res données de la fiche à supprimer. 
Cette suppression se fera automati- 
quement après que vous en ayez donné 
la confirmation. 

TRI : Ce tri s’effectue à partir de la pre- 
mière zone de la fiche et dans l’ordre 
croissant. 

MAILING : Pour effectuer des étiquet- 
tes d’adresses, trois possibilités d’im- 
pression : 

1) Mailing d’une fiche - entrer alors les 
deux premières données de cette fiche. 


2) Mailing du fichier. 

3) Mailing par critère - le Mailing se fera 
pour les fiches répondant à la condi- 
tion que vous aurez indiquée. Pour 
cela, tapez d’abord le numéro de la 
rubrique concernée puis entrez la 
nature du critère. L’impression pourra 
alors commencer. 

SAUVEGARDER : Pour stocker votre 
fichier sur disquette, insérez votre dis- 
quette de sauvegarde et à la question 
« Disquette prête 0/N », tapez 0. 

EDITER : Toutes les zones de chacun 
des enregistrements du fichier seront 
imprimées. 

ARRÊT : Pour sortir du programme. 

Le retour au menu principal vous sera 
signalé par l’affichage de l’inscription 
«MENU» au-dessus des lignes 
d’options. 

Maurice GODEAUX 
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5 REd*************************** 

10 REn***GESmiL 4.1-0 2/1386*** 

20 REn******GCDEBUX daur i ce****** 

30 REd*************************** 

30 CONSOLE :COLOR, ,7,0 '-CLS 

100 Din O$C103,BD$C8, 1003 , T$C83 , FR$C83 , C.OC 10, 23 

120 F0RU-1T08 

130 REHDFR$CU3 

140 NENTU 

150 FORT-*! TO10 

160 REflDOSm 

170 NENTY 

180 DBTB 1 . Nom ,2.Prepom ,3. Adresse >4. Code postal ,5.011 Je ,6. Pays ,7. Téléphoné 
, S. Ind i cat ions 

130 DBTB L ire , Feu i I I e ter , C.reer, C.orr i 9er , Suppr ! mer , Tr I er , Ha I I i n9 , Ed i te r , Sauve sard 
er,Brret 

200 FOR Y-l TO 1 0 :REBD COC Y, 1 J , COCT, 2 3 :NE*T T 

210 DBTB -1,23,4,23, 15,23,21,23,30,23,0,24,6,24, 14,24,21 ,24,33,24 
220 F$-‘'HD.PER. ” '-CF-0 

230 CURS0R2, 0 :PRINT" Trava i I sur Fichier existant ?" 

240 GETGÆ 

250 IFG$»"N"THEN450 
260 IFS4“‘'O‘THEN320 
265 GOTO 240 

263 REd***CHBRGEdENT FICHIER*** 

320 PRINTC7,2]"Disquette prete C0/N3 ?" 

325 GET G$ - IF G*<>"0" THEN 325 

330 R0PEN#2,F$ * 

340 PRINTTBBC103"»Je charge le fichier:»*' 

345 PR I.NT C 0 , 7 3 TBB C 1 0 3 F$ 

350 INPUT#2, I 
360 FORS- 1 TOI 
370 FORT-1 T08 
380 INPUT#2,BD$CT, 23 
330 NEXTT.'NEXTS 
400 CL0SE#2:CF-1 
450 CLS: GOSUB 20000 
433 REd*****dENU***** 

500 CONSOLE :USRC 62 3 

501 H-l : GOSUB 22000 

510 COLOR, , 0, 7 :CtJRSOR 0, 0:PRINTUSING" #####" ;SISE; '-PRINT" oct.dlsp." 

515 CURSOR 0, 22 :PRINT C0, 5 3 " H E N U '' ; 

520 COLOR, ,7,0 '-CONSOLE 1,22,0,40 
530 GET G$ 

540 IF G$-CHR$C 133 THEN 600 
550 IF G* <>" '■ THEN 530 
560 H-H+ 1 ! IF H> 1 0 THEN H-1 
570 GOSUB 22000 
580 GOTO 530 

600 ON H GOTO 2000, L5000, ' 000, 3000, 4000, 5000, 6000, 7000, 8000, 21 000 
630 GOTO530 

333 REd**CREBT ION D'UNE FICHE** 

1000 USRC623 :CLS:l-I + 1 
1010 FORT-1 T08 

1030 PR INT 1. 0,4] FR$ C T 3 :INPUT"" ;BD£[Y, 13 
1040 NENTY 

1045 PRINTC0,73”»Creat ion d'une autre fiche C0/N3?" 

1050 GET G$ 

1060 IFG$— '’0*’THEN1 000 
1070 IFG$— "N" THEN500 
1080 GOTO 1050 

1333 REn**LECTL)RE D'UNE FICHE** 

2000 USRC62 3 :CLS :PRINT [6, i 3FR*C 1 3 : INPUTR1* 

2010 PRI NT f. 6 , i 3FR&C23 : INPUTR2$ 


2020 GOSUB 10000 
2030 GOSUB 11 000 
2130 GOTO500 

2333 REd****CORRECT I ON**** 

3000 USRC623 '-CLS:pRINTC2, 73 "Fiche a corriger:" 

3010 PRINTFRiC 1 3 :INPUTR1Æ 
3020 PRINTFR$C23 : INPUTR24 
3030 CLS 
3040 GOSUB 10000 
3050 GOSUB 11000 

3100 CURSOR 0, 20 :PRINT L2, 73 "Taper le No de la rubrique a corriger:-' 

3102 GET C*:O-0BLCC$J 

3104 IF CC<1 3+CC>83THEN 3102 

3110 CURSOR 0, 20 : PR INT C 2, 73 " I nd i quer la correct ion a effectuer : " :0N ERROR GOT 

03 1 00 : INPUTBD$CC, ?.3 

3140 GOSUB 11000 

3150 CURSOR 0, 20:PRINTSPCC333 

3160 CURSOR 0, 20 : p RI NT [2,7]'' Autres coreotions C0/N3?*' 

3170 GETG* 

3180 I FG$- '• 0 r : &0T03 1 00 
3130 I FG:È- *’ N " THEN500 
3200 GOTO3170 
3333 REd***SUPPRESS I ON*** 

4000 USRC62 3 :CLS 

4010 PR I NT C 2, 7 3 "F I ch e a supprimer:" 

4020 PRINTFR4 C 1 3 : INPUTR1 ^ 

4030 PRINTFR&C23 : INPUTR24 
4040 GOSUB 10020 
4050 GOSUB 11000 

4054 PRINTf.2, 73 ‘‘Est ce bien la fiche a supprimer?" 

4055 GET G* 

4056 IF G$- 1 ’0 1 ' THEN 4060 

4057 IF G*- "N" THEN 500 

4058 GOTO 4055 
4060 FORB-STOI - 1 
4070 F0RB8-1T08 

4080 BD$CBB, B3-B(3$CBB, Btl 3 
4030 NEXTBB 
4100 NEUTB 
41 10 I-I-l 

4120 PRINTf.2, 73 *'»F i che supprimée" 

4130 PRINTC2, 73 "BlButre fiche a supprimer C0/N3?" 

4140 GETG$ 

4150 IFG&-"O"THEN4000 
4160 I FGi£» *’N " THEN500 
4170 GOTO4140 
4333 REt1*******TRI ******* 

5000 USRC623 :CLS:CURS0R15, !2 :PRINTC2,73*' JE TRIE... 1 ' 

5005 10-0 
5010 FQR2- 1 TOI - 1 

5020 IFBD$C ! , 23 <~BD$C 1 , 2+ 1 .3 THEN5280 

5030 F0RTR-1T08 

5040 T£CTR3~BD$CTR,23 

5050 Bp$CTR, 23— BD^CTR, 2+1 3 

5060 HP$CTR,2-t l 3~T$CTR3 

5070 NEXTTR:iO-l 

5080 NEXT2. 

5030 IF 1 0-1 THEN5025 
5100 CLS :GÜTO500 
5333 REd****dBILING**** 

6000 USRC623 :CLS:CURS0R5,5:PRINT"I . ..npILING D'UNE FICHE" 

6010 PRINTTBBC53 "2. .dBILING PU FICHIER'' 

6020 PRINTTBBC53 "3. .MAILING PBR CRITERE" 

6030 PRINT"»Ootre choix:" 

6040 INPUTC :CLS :ONCG0T06 1 00, 6200,6300 


700 


800 


6100 PRINTFRSC 1 3 :INP13TR1$ 

6110 PRINTFRéC 1 ,2] :lNPUTR2ifc 

6120 GOSUB 10000 

6130 GOSÜB3000 

6140 GOTO500 

6200 FORE- 1 TOI 

6210 GOSUB3000 

6220 NEXTS 

6230 GOTO500 

6300 F0RY-U08 

6310 PRINTFR*m 

6320 NEXTT 

6330 COMSOLE20,5,0,40 

6340 INPUT" Cho i x du or I ;ere-W ;C.R 

6350 INPUT 11 Nature du or I te re -»■>" ;CR4 

6360 LiUI-0 

6370 FORE- 1 TOI 

6380 IFBD$CCR,?3-CR$ THEN UU-1 :GOSUB3000 
6330 NEXT2 

6500 IFLiU— 0 THEN PRINTC2, 73 "Huoun enrû9 i sirement ne répond a ces oond 1 1 ! ons p ; G0T 
0 500 

6520 GETG* 

6333 REn***EDJTI0N FICHIER*** 

7000 PC0L0R 1 
7010 FORE- 1 TOI 

7020 PRINT/PBDÆC 1 , EJ, RD4C2.E3 

7030 PRINT/PAP^f. 3, El 

7040 PRINT/PfiD$C4,23,6D$C5, 23 

7050 PRINT/PPD^C6,E3 

7060 PRINT/PBD$C7,23,BD$f.8 î 23 

7080 SKIP1 :NEXTE 

7030 6OTO500 

7333 REn**S6UUEGPRDE FICHIER** 

8000 CLS 

8220 PR I NT C 2, 73 ''Disquette Pr ete C0/N3?" 

8230 6ETGÆ 

8240 IFGÆ<> ‘'O 1 ' THEN8230 
8250 IF CF- 1 THEN DELETE F* 

8265 UOPEN#2,F$ 

8270 PRINT#2, I =F0RE-1T0 I 
8280 FORT-1 T08 
8230 PRINT#2,PDÆCT 3 E3 
8300 NENTT:NE^TE 

8310 CLOSE#2:PRINTI7,23’'B1Lq fichier r ;F$;" est sauvegarde" 

8320 GOTO500 

8333 REf1***ET IQUETTES*** 

3000 PC0L0R1 

31 10 PRINT/PTHBC236DÆC 1 ,23 ;^Pi£iL22^ftD^i2, ?3 

3120 PRINT/PTPBC233D$C3,E3 

3130 PR I NT /P T PB [23 BD$ C 4 , E 3 ;Tf9BC2238D$C5,23 

3140 I FPD* C 6 , E 3 O "FRANCE " THENPR I NT/PT AB C 2 3 AD$ C 6 , 2 3 

3150 SKI PI :RETURN 

3333 REH**RECHERCHE FICHE** • 

12000 FORE— 1 TOI 

10010 IF f.AD$C 1 ,2J > ~R!$3*CADÆ[2,23-R2$3 THEN RETURN 
10030 NENTE 

10040 PRINTC2, 73 "Enreg î strement Inconnu du fichier" 

10080 GOTO500 

10333 REH**AFF I CHAGE FICHE** 

11000 USRC623 -CLS :C0L0R, ,7,2 

11100 CURSOR 0, 1 :PRINTFR$C 1 3 ; T PBC203FRiC23 

11110 CURSOR 0,4:PRINTFR$[33 

11120 CURSOR 0,8:PRINTFR*C43 ;TpBC203FR4C53 

1 1 130 CURSOR 0, i 1 :PRINTFR*C6 3 

11140 CURSOR 0, 141PRINTFR4C73 ;TpBC203FR4C83 

11160 COLOR, ,7,0 

11170 CURSOR 0 , 2 -PRINTAD$ Cl , E 3 ; T ABC 20 3 AD$ C 2, E3 

11180 CURSOR 0, 5 -PRINTAP$C3, E3 

11130 CURSOR0 , 3 -PRINTAD$C 4, E3 ;TABC203AD$C5,23 

11200 CURSOR 0, 12 :PRINTAD$C6, 23 

11210 CURSOR 0, i-5:PRINTAD$C7, 23 ;TABC203AD$C8, 23 

1 1 230 RETURN 

14333 REH *****FEUILLETER******* 

15000 CURSOR0, 22 SPRINT [0, 4 3 ’’ J- Avance T Reviens <h Ho nu principal " ; 

15010 CONSOLE 1 ,21,0,40:CLS:E-1 :GOSUB 11000 
15015 PRINT CHR4C23J 
15020 GE T G$ 

15030 IF GÆ-"ffi" THEN E-Et 1 : GOTO 1 5060 
15040 IF G$-"IXI 1 ' THEN 2-2“ 1= GOT0 1 5060 
1 5050 IF G$-"B" THEN PRINTCHR$C253 :GOTO500 
15055 GOTO 15020 

15060 IF E> I THEN E-I :G0T01 5020 
15070 IF E<1 THEN E-1 '-GOTO 1 5020 
15080 GOSUB 1 1000: GOTO 15020 
13333 REn**INITIBUSPTION ECRAN** 

20000 C0NS0LE23, 2,0,40 '-COLOR, ,7,3:CLS 
20005 CONSOLE 

20010 CURSOR0, 23 :F0R?<-1 TO 10 :PRINTO$CX3 ; 

20020 IF N <10 PRINT" 

20030 NEXT 
20050 RETURN 

20333 RED ***F IN DE PROGRpnnE*** 

21000 END 

21333 RED ***CH0IN OPTIONS*** 

22000 FOR TU- 1 TO LENC04CU33 
22010 COLOR COCU, 1 3 + TU, C.CCU, 2 3,7,3 
22020 NEXT TU 

22030 FOR TU-1 TO LENCOSCH33 
22040 COLOR CO C H, 1 3 +TU, COCH, 2 3 , 0, 7 
22050 NE* T TU 
22060 U-H: RETURN 
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PROTECTIONS POUR PRO- 
GRAMMES EN S-BASIC 

Protéger un programme Basic a tou- 
jours été un problème. Pourtant, en 
supprimant l’effet de certaines instruc- 
tions, on empêche le PIRATAGE ! 
Commandes invalidées : LIST, SAVE, 
PEEK, BYE. 

Un message d’erreur apparaîtra lors de 
l’utilisation d’une de ces quatre 
commandes. 

Annulation de LIST par : 

POKE 12629,254,32 ou POKE 16642,201 

Annulation de SAVE par : 

POKE 12721,254,32 ou POKE 17060,201 

Annulation de PEEK par : 

P0KE1 291 9,254,32 ou POKE 26037,201 

Annulation de BYE par : 

POKE 12751,254,32 ou POKE 5058,201. 

Réactivation de LIST par : 

POKE 12629,2,65 ou POKE 16642,175 

Réactivation de SAVE par : 

POKE 12721,164,66 ou POKE 17060,205 

Réactivation de PEEK par : 

POKE 12919,181,101 ou POKE 26037,254 

Réactivation de BYE par : 

POKE 12751,194,19 ou POKE 5058,229. 

Ces POKES sont à mettre au début du 
programme, et sont tirés de la revue 
« Fischel ». 

N. B. - Ayez pitié du Club, ne nous 
envoyez pas de programmes protégés. 



GRAFITIK 


Adieu les longues soirées 
passées sur le papier milli- 
métré à mitonner de super- 
bes présentations graphi- 
ques pour vos program- 
mes ! Avec GRAFITIK, vous 
dessinez librement sur 
l’écran et le MZ 800 se 
charge de vous générer le 
programme correspondant. 

La création d’un dessin avec cet utili- 
taire se fait en deux parties : on se sert 
d’abord de GRAFITIK.DES pour créer le 
graphisme à l’écran puis, une fois qu’il 
est sauvegardé, on exécute GRAFI- 
TIK.CONV pour le transformer en pro- 
gramme BASIC. 

1) GRAFITIK.DES 

Pour dessiner, on déplace le curseur 
(une petite croix) avec les touches flé- 
chées, la barre d’espace servant 
d’accélérateur. 

Lorsque l’on est placé sur la position 
désirée, on sélectionne le point grâce 
à la touche «Joker» située au-dessus 
de CR. 

On dispose des fonctions suivantes : 

- Fl annule la dernière sélection. 

- F2 trace un segment entre la position 
courante et la dernière sélection. 

- F3 trace un cercle passant par la posi- 
tion courante et ayant pour centre la 
dernière sélection. 

- F4 trace un rectangle passant par la 
position courante et la dernière 
sélection. 

- F5 colorie la zone autour de la der- 
nière sélection (on doit être positionné 
sur la frontière de la zone à colorier). 

- F6 appelle le menu des fonctions spé- 
ciales (lecture, écriture, correction, fin 
du programme). 

- F9 et F10 permettent de choisir la cou- 
leur du tracé qui apparaît autour de 
l’écran. 

Les adeptes de la religion polonaise 
inversée auront reconnu l’emploi d’une 
pile (on peut sélectionner jusqu’à 35 
points successivement) et d’opéra- 
teurs (graphiques !) sur le sommet de 
cette pile. 

A^AAMA^^^VSVAVA^AAAAA 

99 '********INIT 1ALISATIONS 

100 INIT ,; CRT -12 ,: -COLOR 15,0 

1 10 LiniT$F800 -POKE$F800, $3E, '5, ' ,$CF,6, 

$ED ; $79 , $C9 - COLOR 1 5 -USRC.$F800 3 
120 DEF FNS$CX3--CHR$CX/128 + D)t-CHR$CX I10D 
128+D3 

130 DEF FNNCX3 = rBSC.f.NID$CCND$ ) X, i 33 -D3*l 
28+ASCCniD$CC.nD$, XH , ni -D 
140 DI N PC255 3 ,H$C255, i03 
160 XF--160 ; TF--1 00 • CF -2 - CO= 1 5 
170 FOR 1-0 TO 9-DEFKEYCI + i 3 = "90'- + 

3 -NEXTI 


-STR$r I 



180 D=32 

199 '********BOUCLE PRINC 

200 GOSUB " P LEC!HE 
210 GOSUB 'POTION" 

220 GOTO 200 

999 '********DEPLACEMENT CURSEUR 

1000 LABEL "FLECHE " -X=XF-r=YF 
1010 GOSUB ,:p LECHON" 

1020 GET G$ '& = STIC.KC0 3 - IF G$="" AND G = 0 
THEN 1020 

1030 GOSUB " PL ECFIOFF " 

1035 A=STRIGC03*1 0+1 -CF-2 + STRIGC03X2 
! 040 ON G- GOSUB 1 1 0 1 , i 1 02 , ' 1 03 , i ! 04 , 1 1 05 
, 1 106, 1107,1108 ' 

1050 IF X<1 THEN X = 3 1 8 
1055 IF X> 3 1 8 THEN X=1 
1060 IF Y < 1 THEN T=198 
1 065 IF Y> 1 98 THEN Ï=1 
1070 XF = X ■ f F = Y 
1075 IF G$="H7" RETURN 
1080 GOTO 1010 

1101 Y=Y-A- RETURN 

1102 Y=Y-A 'X=X+A 'PETURN 

1 1 03 X=X + A - RETURN 

1104 Y =Y +A ; X = X + A : PE T URN 

1105 Y = Y + A -RETURN 

1106 Y=Y + A . X = X-A 'PETURN 

1 1 07 X=X~A -RETURN 

1108 Y=Y-A - X = ,X-A -PE T URN 

1199 '*******:*X:*CURSF.UR ON/OFF 

1200 lABEL" p l_ECHON" 

i 2 1 0 P 1 =POI NT r X , T 3 - p 2= p 0 I NT f X , r - 1 3 . P 3 r=PQ 
INTCX, f+1 1 :P4--POINTrx-i , H - p 5 -PO INT! X+ i r 3 
1220 , l I NE f FF ] X - 1 , T , X H , r - ^ I NF r C p ] X , 1 - - ' , X 

ï" + ! -PETURN 

1249 '** 

1250 l_PBEl'PlFCHOF p ' 

’ 260 S F T r P 1 TX, T - SE T f P2 ] X , r -1 -SF+rPUlX, r > 

1 -SE T rp4]X-i , 1 ■ SF.T rp 5]X+1 , r 
’ 270 RETURN 

1299 'X*****.x**xxxx*xgFÇTIQN PI^F 

1300 lABEL ' FriPILF' 

| 1310 PLF I N - r SP> 240 3 - ! P p lFIN RETURN 
\ 13,5 NUS I F " O 1 T 7A3 (-B0 1 ■ GOSUB ' p^FCHON ' 

’ 320 SP---SP+ ’ -Pf SPV-X 
132! SP-SPH - p rs p i-u' 

! 322 SP---SP H - p rs p 3=Pi 

1 323 SP-SP-i ;Prsp-,-„P 2 

1 324 SP=SP"1 ; p fSP3--P3 

1 325 SP-=SP*-i :PfSP V--P4 

1 326 SP--SPH - p f SP3-P5 

1330 RETURN 

1400 ^PBEL'-DEPIlF'- 

1410 U I DE- r SP <7 3 • I p O IQF RETURN 

1420 P5--PCSPI -SP--SP -1 

142! P4r_-Pf çpt :SP--S p -1 

i 422 P3 = PC SP3 S p =SP~ ! 

1 423 P2 -P I SP 3 -SP--SP -1 
1 424 PI -PC SP 3 -SP-SP -1 
1 425 Y -P f SP 3 -SP--SP-1 

1426 X-PCSP3 -SP--SP -1 -GOSUB " p L _F.CHOFF " 

'430 RETURN 

1999 '**********tql|CHF DF PONCTION 

2000 vABEi_"ACTION" -GFT G$ 

2010 IF G$- 1 0' GOSUB' DEPIl-E’- -RETURN 

2011 IF G$ - " ' " &0SUB" P 2" -PETURN 

2012 IF G$= " 2 " G0SUB“F3" 'RETURN 

2013 IF G$= " 3 " G0SUB"F4" 'RETURN 

2014 IF G$= " 9 " THEN CO= C CO+ 1 3 MOD 16: p 0KE 
$F801 , CO :USRC$F800 3 'RETURN 

2015 IF G$= " 8 " THEN CO=CCO+1 53MOD 16' p 0K 
E$F80 1 , CO :USRC$F8003 : PETURN 

2016 IF G$= " 4 " GOSUB "F5" 

2017 IF G$= " 5 " GOSUB"AUX" 'RETURN 
2030 GOSUB "EMPILE" 

2090 RETURN 
2100 LABEL"F2" 

2110 CMD$=”L"+FNS$CX3+FNS$CY3 
2115 GOSUB "DEPILE" 'IF UIDE RETURN 
2120 CMD$=CMD$+FNS$CX 3 +FNS$( Y 3 
2130 GOSUB "UALID" 

2135 X=XF 'Y=YF 'GOSUB "EMPILE" 

2140 RETURN 
2150 LABEL"F3" 

2160 X2=X'Y2=Y :GOSUB"DEPILE" : IF UIDE RETURN 
2170 R=SQRC CX2-X3XCX2-X3 + C Y2-Y3*C Y2-Y3 3 
2175 CMD$="C"+FNS$(X3+FNS$CY3+FNS$CR3 
2180 GOSUB" UAL I D " 

2190 RETURN 
2200 LABEL "F4" 

2210 CMD$="B"+FNS$CX3+FNS$CY3 :G0T021 15 
2250 LABEL "F5" 

2260 A=P1 :GOSUB"'DEPILE" 'IF UIDE RETURN 
2270 CMD$="P”+FNS$CX3+FNS$CY3+FNS$CA3 
2275 GOSUB "UALID" 

2280 RETURN 
2300 LABEL"DEL " 

2310 IF PTR=0 RETURN 
2320 PTR=PTR-1 'GOSUB" IJ?" 

2330 M$ C I , J 3 = " " 

2340 RETURN 
2350 LABEL"SAUE" 

2360 LIOPEN #1 , A$ : PTR=0 

2370 GOSUB" IJ?" :IFM$CI,J3 = "" THEN CLOSE: 
RETURN 

2380 PRINT# 1 , M$ C I , J 3 : PTR=PTR+ 1 : GOTO 2370 
2390 LABEL "LQAD" 

2400 ROPEN #1 , A$ 

2410 IF EOF C # 1 3 THEN CLOSE 'RETURN 
2420 GOSUB" IJ ?" : INPUT# 1 , M$C I , J 3 :PTR=PTR+ 

1 'GOTO 2410 
2500 LABEL' "AUX" 

2510 BOXC 15370, 70, 250, 160,1 
2520 CURSOR 10,10'COLOR 15:PAL 0,1 
2530 PR I NTT AB C 1 0 3 " 1 . retour au dessin 
2540 PRINTTABC 1 03 "2. annu II e gaffe" 

2550 PRINTTABC 103"3. chargement" 

2560 PRI NTT AB C 1 03 " 4 . sauvegarde" 


2570 PRINTTABC 103"5. fin" 

2590 GET G' IF G=0 THEN 2590 
2600 IF G=2 GOSUB"DEL" 

2610 IF G=3 OR G=4 THEN CURSOR 10,16'INP 
UT " NOM FICHIER : " ;A$ 

2620 IF G=3 THEN GOSUB"LOAD" 

2630 IF G=4 THEN GOSUB"SAUE" 

2640 IF G=5 THEN I N I T " CRT : M2 " : END 
2700 COLOR CO : GOTO " ALLEXEC" 

2999 '***********|1EM0RISATI0N 

3000 LABEL "UALID" 

3010 IF COOFC THFN CMD$ = "c"+FNS$CC03+CM 
3020 GOSUB" IJ?" 

3030 M$CI, J3=CMD$'PTR=PTR+1 
31 10 GOSUB " EXEC " 

3120 RETURN 

3200 LABEL" IJ?" : I=PTR/1 1 :J=PTR MOD 11 'PETURN 

3499 '***********EXECUTION D'UNE CMD 

3500 LABEL"EXEC" : C$=LEFT$ C CMD$ , 1 3 

3510 IF C$= " L " THEN LINE FNNC23 , FNNC43 , F 
NNC63 , FNNC83 :A=9 

3520 IF C$="C" THEN CIRCLE FNNC23 , FNNC43 
, FNN C 6 3 : A=7 

3530 IF C$= " B " THEN BOX FNN C 2 3 , FNN C 4 3 , FN 
NC63 , ENNC83 :A = 9 

3540 IF C$= " c" THEN CC=FNN C 2 3 : COLOR CC'A=3 
3550 IF C$=" p " THEN PAINT FNNC23 , FNNC4 3 , 
FNNC63 ; A=7 

3560 IF A<LENCCMD$3 THEN CMD$=M I D$ C CMD$ , 

A+1 3 'GOTO "EXEC" 

3590 RETURN 
3600 RETURN 

3999 '************EXECUTION DE L ' ENSEMBL 
E DES COMMANDES 

4000 LABEL "ALLEXEC" 

4010 PTR=0 'SP=0 : INI T "CRT'M2" 

4020 GOSUB" IJ?" :CMD$=M$C I , J 3 'IF CMD$=“” 
RETURN 

4030 GOSUB"EXEC" 'PTR=PTR+1 'GOTO 4020 
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2) GRAFITIK.CONV 

Il suffit de lui préciser le nom du fichier 
dans lequel on a sauvé le dessin 
(option F6 de GRAFITIK.DES) et le nom 
du programme à générer. 

Il fabrique alors un fichier que l’on peut 
charger par la commande LOAD «nom 
de programme», A. 

Il est conseillé de le resauver ensuite 
par un SAVE classique. 

Simon CHAGNOUX 
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20 L$= " ! REM CE PROGRAMME EST GENERE PAR 

GARF I T I K 1 ... 2. , . 3. .. . 4. „ , 5 6. . . 7. 

8. .. .. 9@ ' INI T"+CHR$C343+"CRT -M2" 

30 DEF FNN$CX3=STR$C C ASCCMI D$ C CMD$ , X, 1 3 
3-D3X1 28 + ASCCMID$ÇCMD$, X+1 , 1 3 3--D3 + " , " 

40 I - 1 0 : D I M T $ C 255 3 - Q = 32 

50 INPUT "NOM DE F I CH T ER ' " ;F$ - I NPUT "NOM 
□ U PROG GFNERE - " ,G$ 

60 ROPENH 1 , p$ 

70 IF C.MD$-"" AND NOT FOFC#13 INPUT 11 1 , C 
Mü$ 'GOTO 70 

80 IF EOF C tf ! 3 CLOSE -GOTO 120 
90 R$-~" " ■ GOSUB "CONU " 

'00 IF i_F.NCl$ 3 <-L_FNrR$i>g0 T$r 1 -] 0)-_ L $ $ 

-STR$r I 3 - I--I + 1 
1 1 0 l$-L$ *-R$ -GQi O 70 

'20 I - I •— 9 ■ T $ r 1 9 -L$ - P R I NT " A pp iJ TER SUR ESP 
ACE" 

130 IF STPIGC03-0 THFN 130 
140 UO p EN #2,G$ 

’ 50 FOR J -0 TO I p RINTtt2, T $r j 3 -NEX T l 
'60 CLOSE- FND 

L70 ■'**********xexECUTION D'UNE CMD 
'80 l ABEl " CONU " ■ C$"-lEFT$ r CMD$ • 1 3 
190 JF C$-"L" +HFN R$-"uINE" *-PNN$i'23 i-FNN 
tFNN$rçi h F NN$r g) .^--9 

200 IP C$ - " C " THFN R$--"CIRCLF.'- t FNN$i'2 3+F 
NN$ r 43 »-FNN$ r 6 3 -A-7 

210 IP C$--"B" THFN R$ - "BOX " >-FNN$ r 23 *-PNN$ 
r 4 3 +FNN$ f 6 3 t-FNN$ C 8 3 • A - 9 

220 IF C$--''c'' THFN R$ ■- '■ COLOR ' < -PNN$ r 2 3 - A- 
3 

230 IF C$--"P" THEN R$ ■-■■PAINT" ‘-FNN$f23+FN 

N$ C 4 3 +FNN$ C 6 3 -A-7 

240 CMD$-MI D$ r CMD$ , A ■- 1 3 

250 R$ -i.F.FT$ r R$ , !_FNf P$ 3 - ! 3 f " - ' 

260 RETURN 
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3D LABY 


Ce programme est un contre-exemple des tendances de 
l’informatique actuelle : il est mal écrit, pas structuré, pas 
commenté et utilise des ruses mesquines pour gagner 
quelques instructions. Mais le résultat est un jeu facile 
à taper et assez impressionnant. 


Le principe est simple : vous devez sor- 
tir d’un labyrinthe. Mais (à part une 
brève vision en plan au début du jeu) 
vous voyez ce labyrinthe de l’intérieur 
avec des vues en perspective. 

Pour vous déplacer : 

- la barre d’espace vous fait avancer 
-Elvous fait tourner à droite 
-EDvous fait tourner à gauche. 

La sortie est une porte dérobée située 
à l’autre bout du terrain. Par exemple 
sur un labyrinthe de taille 14, vous par- 
tez de la case (1,1) et la sortie est en 
(13,13). 

Si vous préférez voir se tracer les des- 
sins en perspective au lieu d’avoir une 
apparition soudaine, il faut supprimer 
les instructions PAL de la ligne 38. 

Bon courage... 
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1 ON ERROR GOTO 35 

2 GOSUB20 

3 R = 320/200 - X= 1 - Y=1 

4 S = S MOD 4'ONS+l GOSUB 12, 13, '4, '5 

5 G0SUB37 'CURSOR1 7, 0 - PRINTX i T , " 

6 IF X = T A- 1 AND Y = TA-1 THEN 16 

7 GFT G$ - IF G$=" " THEN 7 

8 IF G$="0" THEN S = S + 1 'G0T04 

9 IF G$="0" THEN S=S+3-G0T04 

10 I FG$ <> " " THEN7 ' FLSE IF NOT TCX + XA,Ï+Y 
A, 03 THEN NO I SE " T 7U 1 5S6O6M3C0R0F 4 " ' GOTO 
7: FLSE X=X+XA ' Y=Y+YA '&0T05 

1 1 G0T05 

12 YA = - 1 ' XA = 0 ' M-X • G'-X- 1 'D = X+1 -0 = 0- ST-- 1 • 
PETURN 

13 Y A=0 ' XA = - 1 ' M = Y - G = Y+ 1 -D = Y-1 -0=1 'ST = -1 • 
PETURN 

14 YA= 1 ' XA = 0 - M = X - & = X+ 1 - D = X- 1 -O = 0'ST=1 -PE 
TURN 

15 YA = 0 -XA= 1 ' M = Y - G = Y- 1 :D=Y+! '0=1 -ST=1 -PE 
TURN 

16 SOUND= C 1 , ! 3 ' SOUND- f. 3, 0 3 - SOUND- T 5,03 

17 FOR 1=0 TO 100 

18 BOX C0] 160-I*R, 100-1, '60+I*R, 100+1,0 
‘ SOUND- C0, I 3 ' SOUND - C 2 , 1 00-1 3 - SOUND- f. 4 , r 1 
00-13*33 'NEXT I 

19 SOUND 15,' -PAL 3, 5 - SYMBOL! 3] 0,0,' ENFI 
N" , 5 , 6 - SYMBOL 50 , i 00 , " L I BRE 2",5,6'CURS0 
R0, 20 'FND 

20 INPUT "0T A ILLE?" , TA ' D I MT C T A , T A , ' 3 ' I N I T 
"CRT 'Ml " 

21 X= 1 ' Y= 1 'S = 3 'GOSUB 1 5 -BOX [2 30, 0, TAX4 + 3, 
TAX4 + 3, 2 'G0SUB25 -X=1 -T = TA-1 'G0SUB25-T=1 - 
X=I A- 1 :&0SUB25'T = TA-1 'X-TA-1 'S=0'GOSUB12 

22 G0SUB25 

23 PAINTC 1 ]. 4,4, 2 ' IF POINT C C T A- 1 3 *4 , f TA 
-13*4301 PRINT" JE FAIS GREUE" 'END 

24 RETURN 

25 FL=0 'G0SUB34 -MUSIC"A0" :F0RT=1 T0TA*3 

26 IF Tf.X + XA, Y + YA, 03 THEN 29 

27 P=X*0- Y* C 0—1 3 - IF TCG, p + ST,03 OR TCD, p 
"ST, 03 THEN 31 

28 IF T C M , P + ?*ST ,03 THEN IF FL=1 GOTO 31 
'FLSE FL= 1 

29 X = X + XA ' Y = Y + YA -G0SUB34 

30 IF RNDC 1 3 <. 6 THEN 26 

31 S=S+ 1 - I F RND C 1 3 > . 5 THEN S = S + 2 

32 ON S MOD 4 + 1 GOSUB 12, 13, i 4 , 15- NEXT T 

33 RETURN 

34 BOX X*4, Y*4, X*4+3, r*4+3, 3 -i rx, Y, 03=-! 

' T C Y , X , 1 3 =- 1 'PETURN 


35 IF F.RL.028 AND ERL O 27 ' p R I NTERL ■ FRRO 
P ERN 

36 S=S+! -NOISE"C0" 'RESUME 32 

37 IF 0 THEN P = X 'C = 3 'F = 2 -FLSE P = Y -C = 2 'F = 

3 

38 2=122 - CLS-- p AL2,0- p AL3,0-f r OR 1 = 10 TO 0 
STEP-1 

39 21 =EXPC r 1-1 3*. 483 '?R = 2*R 

40 IF NOTTfM, p ,O3THENBOXC0I 160-2R, 100-2, 

1 60+2R, i 00+2, C ' 1=0 ' &0T045 

4 1 IF NOI 1 C G , p , 03 THENL I NE I C ] 1 60-2R , i 00 
-2, i 60-21 *R, i 00-21 , i 60-21 *R, i 00 + 21 , i 60-2 
R, 1 00+2, ! 60-2R, i 00-2 'PAINT [F.I 1 60- (12 + 21 .9 
*R/2 , 1 00 , C 

•42 IF TCG, p ,03 AND NOT Tr.G, p + ST,03 THEN 
BOX [ 0 ] 1 60-2R, 1 00-21 , i 60-21 *R, 1 00+21 , C 

43 IF NOT TCD, p ,O3THENLINErC]160+2R, 100 + 
2, i 60+21 *R, i 00+21 , i 60+21 *R, i 00-21 , i 60+2R 
' 1 00-2, i 60+2R , i 00+2 -PAINTIEI 1 60+12+21 3*R 
^2, 100, C 

44 IF T C D , p , 0 3 AND NOT TrD, p + ST,03 THEN 
BOX [ 0 ] 1 60+2R, 1 00-21 , i 60+21 *R, 1 00+21 , C 

45 P=P + ST '2 = 21 • NEXT I ' p AL2, 2 ' p AL3 , 4 ; re.TUR 
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COLORIEZ... 


Voici un sous-programme qui, je pense, 
intéressera plus d’un Sharpentier. La 
routine Basic ci-dessous pour MZ-800 
colorie selon la valeur de A le contour 
inutilisé de l’écran. Mettre dans A le 
code de la couleur désirée. Ce petit 
programme peut être incorporé dans 
un programme Basic ou LM. On pourra 
ainsi colorier tout l’écran sans toujours 
avoir ce triste contour noir. 

Jérôme GESLIN 

AWWvVvV\AAVA^AWv\AAA 

10 REM — COULEUR CONTOUR — 

20 A = 4 

30 POKE $8000,$6,$6,$E,$CF,$16,A,$ED,$51, 
$09 

40 USR($8000) 

\AA^WVvVvAAVv\\VAVvAAAA/ 




1 9 Micros-poches Duriez qui 
décrochent les exam’s j-â 


m 


A PRES TESTS, Duriez 
vous les recommande. 

O TI 74 de Texas Instru- 
ments : 1 190 F. Un tour de 
force ! Micro-poche basic de 
pointe, synthèse de calculatrice 
scientifique et de micro- 
ordinateur aux performances 
pro (math, stat, langage 
Pascal). 

Outil puissant pour ingé- 
nieurs hommes de stats, de 
finances, étudiants. 

Les Grandes Classiques, 

très connues, très répandues, 
polyvalentes : math. stat. 

■ 2 programmables langage 
élémentaire Hewlett-Packard 

• HP 11C : 471 F • HP 15C : 

915 F. 

■ 2 calculatrices scientifiques 
programmables basic 

• Sharp PC 1401 : 790 F • 
Sharp PC 1402 : 990 F. 


Chez Duriez 
1 500 Prix charter 


à prix Æ charter 


© 5 financières program- 
mables. 

Chaque fois que vous placez 
ou retirez de rargent celui-ci 
vaut plus ou moins selon les 
taux d’intérêt et d’inflation. 
Donc, votre comptabilité est 
fausse ? 

Pas du tout ! Ces micros cal- 
culent votre rentabilité interne 
réelle avec valeurs présente et 
future annuités, cash flow, 
nombre de périodes, etc... 

• HP 12C de Hewlet- 
Packard : 915 F. 

• Sharp 1421 : 1175 F • 
Sharp 533 : 440 F • TI BA54 : 

390 F. 

• Et la nouvelle Star finan- 
cière HP 18C : 1800 F ttc. 


Extrait de 
Mathématiques 
sur micro-ordinateur 
Ed. Eyrolles. 


U La mémoire d’éléphant • 
Sharp PC 1600 : 3 390 F ttc : 

40 pages d’anti-sèches intégra- 
bles (chut !) 80 Ko de mémoire 
vive, le record. 

• Branchable disquettes et 
imprimante. 


★★★★★★★★★★★★★★ 

O En première mondiale : 

Des micros scientifique à écran 

§ raphique avec 422 et 486 pas 
e programmes fx-6.000G : 
690 F - fx-7.000G : 869 F de 


★★★★★★★★★★★★★- 

r — Index clignotant 


de programmes tx-ô.UOOG : 
690 F - fx-7.000G : 869 F de 
Casio. 

Entrez les équations : les 
courbes se dessinent sous vos 
yeux, superposées ou non. 
Erreurs faciles à réparer. Zoom 
à volonté ici ou là. 

• Demandez notice Duriez : 
Micro-News Sicob 1986 contre 
2 timbres à 2,20 F. 

Duriez 132, Bd St-Germain, 
Paris 6 e , M° Odéon. Ouvert 
Mardi au Samedi de 9 h 45 à 
19 heures. 


— 2 . 7 65 9 5 7447 


• Catalogue général (mach. 
écr., répondeurs, téléph., 
dicteurs et tout le Bureau) 
3 timbres 2,20 F • Gratuits en 
magasin. 


M 

ADRESSE 


1 vous prie de bien vouloir lui faire parvenir 
" □ Recueil(s) des n° 1 à 5 des bulletins SHARPENTIER 
I au prix de 100 F* 

■ □ Bulletin(s) SHARPENTIER n° 6 □ , 7 □ , 8 □, 9 □ , 10 □ 

I au prix de 20 F chacun* 

□ Bulletin(s) SHARPENTIER n° 11 □, 12 □, 13 □ 

I au prix de 25 F chacun* 

□ Bulletins) SHARPENTIER n° 14 □, 15 □, 16 □ , 17 épuisé, 18 □, 19 I 

I n 20 au prix de 30 F chacun* 

□ Manuel Langage Machine , PC 1251 □. 

I au prix de 180 F chacun* 

□ Manuel de Référence MZ 800 au prix de 240 F l’un* 

I * Port forfaitaire : 20 F 

Ci-joint un chèque de F à l’ordre du 

. « CLUB DES SHARPENTIERS » 

I Date Signature 





Edito 

Initiation LH-5801 III 
Ajustement de courbe 
Astuces 1 et 2 
Compte bancaire 
Start Mogura 
Edit LM 
ON 

Graphe ligne 
Des PC sur le terrain 
Format scientifique 
Karaté K 
Vocable 

Conversion de température 
Water panic 
Codes assembleurs 
News 

Le port d’entrée analogique 
Initiation au LM ESR-H (7 e ) 
Musique et acoustique 
Des erreurs... 

Gesmail 
Astuces 
Graphitik 
3D LABY 
Astuces 
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